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Einleitung 


Pascal ist eine allgemeine Computersprache, mit der sich 
Aufgaben aus den unterschiedlichsten Bereichen auf Mi- 
krocomputern wie auf Großrechnern bearbeiten lassen. 
Ihr Entwickler, der Schweizer Informatikprofessor Ni- 
- klaus Wirth, hat besonderen Wert darauf gelegt, daß in 
ihr die grundlegenden Prinzipien des Programmierens 
deutlich zum Ausdruck kommen. Je nach Verwendungs- 
zweck haben viele Programmiersprachen ihre eigene Be- 
“ deutung; als Lernsprache ist Pascal unübertroffen. Allen, 
die sich tiefergehend praktisch und theoretisch mit der 
Programmierung von Computern befassen wollen, kann 
der Zugang ‘über Pascal nur empfohlen werden. 

Wir gehen von der Annahme aus, daß Sie einen der üb- 
lichen, heute sehr preiswert erhältlichen Mikrocomputer 
mindestens gelegentlich zum Üben nutzen können. Wei- 
terhin sollte ein handelsüblicher Pascal-Compiler (das ist 
das Programm, das einen in Pascal geschriebenen Code 
in den Maschinencode übersetzt), bereits auf dem Rech- 
ner installiert sein bzw. wie im jeweiligen Handbuch be- 
schrieben, installiert werden, damit Sie die Übungsbei- 
spiele gleich ausprobieren können. Wegen der großen 
Verbreitung dieses Pascal-Dialekts werden Sie in diesem 
Buch die Pascal-Variante Turbo-Pascal für den IBM-PC 
und Kompatible kennenlernen, die von der amerikani- 
schen Firma Borland entwickelt wurde. Spezielle Eigen- 
schaften von Turbo-Pascal werden aber entweder gemie- 
den oder nur so weit verwendet, wie sie sich mit 
geringfügigen Abwandlungen auch auf andere Pascal- 
Dialekte (zum Beispiel Quick-Pascal von Microsoft) über- 
tragen lassen. Sie finden durchgängig die erforderlichen 
Hinweise auf die Unterschiede zwischen den - noch gele- 
gentlich verwendeten - älteren Versionen von Turbo-Pas- 
cal (bis zu Version 3.x) und der Neugestaltung der Spra- 
che (in den Versionen ab 4.0 und 5.5). 

Das vorliegende Buch dient als qualifizierte didakti- 
sche Schulungsunterlage für den Einstieg ins Program- 
mieren — nicht als Ersatzhandbuch mit unzusammenhän- 
genden Befehlserläuterungen. Bedienungshinweise zu 
Grundfunktionen des Computers finden Sie in den Be- 
dienungsanleitungen oder in einem der zahlreichen 
Grundlagenbücher. Bitte schlagen Sie dort nach, wenn Sie 


Die Übungsaufgaben 


beispielsweise wissen wollen, wie ein Diskettenlaufwerk 
funktioniert, wie man Dateien kopiert, Disketten. forma- 
tiert und so weiter. 

Jedem Kapitel sind reichlich Aufgaben beigefügt, an 
denen Sie Ihr Verständnis des Stoffs erproben’ und vertie- 
fen können. Wenn Sie sich zirka 50 Prozent der vorge- 
schlagenen Aufgaben nach Ihren eigenen Interessen aus- 
wählen und sie sorgfältig bearbeiten, reicht dies aus, um 
die erforderliche Übung zu erlangen: Sicherlich werden : 
Sie die eine oder andere Aufgabe nicht ganz verstehen 
oder nicht vollständig lösen können: Das ist ganz natür- 
lich - denken Sie daran, daß Sie ein Programmierproblem 
nur dann erfolgreich angehen können, wenn Ihnen der 
Zusammenhang, aus dem es stammt, gut vertraut'ist. 

Ein ganz wichtiger Tip: Versuchen Sie auf keinen Fall, 
gleich zu Anfang’ein großes Programm mit ällem Kom- 
fort zu entwerfen, wie Sie ihn aus kommerziellen Pro- 
grammen kennen. Sie würden es gewiß'niemals zu Ende 
schreiben. Stattdessen sollten Sie zunächst immer anstre- 
ben, eine sorgfältig strukturierte, aber ansonsten 'mög- 
lichst primitive Lösung tatsächlich fertigzustellen. Verfei- 
nerungen lassen sich bei guter Strukturierung später 
immer'noch anbringen. Wundern Sie sich nicht über die 
Arbeit und Mühe, die das dennoch macht. Ein einziges 
Programm über einen komplexen Gegenstand ‘erreicht 
rasch eine Länge von mehreren tausend Programmzeilen. 
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1 Grundlagen 


Maschinensprache - Computercodes - Pascal - 
Der. Editor und das Turbo-Hauptmenü 


Maschinensprache 


Das „Herz“ jedes Computers ist sein Prozessor. Grob ge- 
sagt, erkennt der Prozessor bestimmte Bitmuster an sei- 
nem Ein-/Ausgangskanal und reagiert darauf. Ein Bit ist 
die kleinste Informationseinheit: Null oder Eins, Aus 
oder Ein, ... Die Bitmuster werden als Bytes oder „Com- 
puterwörter” bezeichnet, wobei der letztere Begriff recht 
unexakt ist. | 

Die Gesamtheit aller „Wörter“ aus 0 und.]1, die ein be- 
stimmter Prozessor als Befehle interpretiert, nennt man 
den „Befehlssatz” des Prozessors. Aneinanderreihungen 
von Bytes, die solche Befehle und zugehörige Daten ent- 
halten und den Computer zu einer Folge von genau defi- 
nierten Aktionen veranlassen, bilden ein Programm in 
der Maschinensprache des betreffenden Computers. Bei 
einem ganz einfachen Computertyp könnte etwa folgen- 
des „Wörterbuch“ "gelten: 

Jede Vereinbarung über die Bedeutung von „Compu- 
terwöörtern” wird Code (auch eingedeutscht Kode) oder 
Schlüssel genannt. Wenn die Computerwörter aus je drei 
Symbolen der zwei Zustände 0 oder 1 bestehen, wird von 
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Abbildung 1-1: Eine Wörterbuchtabelle 


a 


Der ASCII-Code und die 
PC-Zeichen 


Dual- und 
Hexadezimalsystem 


einem 3-Bit-Code gesprochen (ein Bit entspricht einer mit 
O oder 1 besetzbaren Position). Die meisten heutigen 
Computer arbeiten mit einem 8-Bit-Code mit maximal 
256 verschiedenen „Wörtern” als Maschinensprache (wo- 
bei 8 Bit zu einem Byte zusammengefaßt werden). Signal- 
folgen aus je 8 Nullen und Einsen stellen also letztlich die 
„Sprache“ dar, die der Computer versteht. 


Computercodes 

Neben dem Code für Befehle werden noch eine Reihe 
weiterer Kodierungen verwendet, die alle ebenfalls 8 Bit 
oder ein Vielfaches davon umfassen. Je nach Zusammen- 
hang, je nachdem, welche „Datenweichen” vorher ge- 
stellt wurden, kann dieselbe .Folge von Nullen und Ein- 
sen nach dem einen oder dem anderen Schema gedeutet 
werden. Die wichtigsten Kodierungen finden Sie in der 
Tabelle 1 im Anhang wiedergegeben. Sie bilden in ihrer 
Gesamtheit den erweiterten ASCH der IBM-kompatiblen 
Personal Computer. ASCIH bedeutet „American ee 
Code for Information Interchange”. 

Der andere Code, der sich in dieser Tabelle nieder- 
schlägt, ist die Umsetzung der. im gewöhnlichen Dezi- 
malsystem 0, 1, 2, 3, 4, 5, .. 255 geschriebenen Zahlen in 
die binäre Folge 0, 1, 10, 11, 100, 101, .. 11111111 (binär 
heißt „aus zwei Komponenten gebildet”). Da der Com- 
puter letztlich nur „Strom ein“ und: „Strom aus” kennt (so 


stellen sich Nullen und Einsen für ihn dar), werden intern 


Zahlen in dieser Form, das heißt im Zweier- oder Dualsy- 
stem dargestellt, das mit den beiden Symbolen ’0 und 1 
auskommt. Rechnen läßt sich mit den dualen Zahlen wie 
mit den dezimalen. Entscheidend ist, daß sich dieses 
Rechnen leicht mit Transistorschaltern imitieren läßt: 
denn aus diesen bestehen me hauptsäch- 
lich. 

.Schließlich sehen Sie in der Tabelle noch eine Spalte, die 
zu den- Dezimal- beziehungsweise den Dualzahlen die 
Entsprechung im Sechzehner- oder sogenannten Hexade- 
zimalsystem angibt. Die Bedeutung dieser Zahlendarstel- 
lung liegt darin, daß sie leichter zu schreiben und auch zu 
behalten ist als die duale Form, aber nach einem ganz ein- 
fachen Schema in die Zweierform übersetzt werden kann 
(was in der Regel der Computer erledigt). 


„In den Bits wühlen” müssen Sie aber nur in seltenen 
Ausnahmefällen - in diesem Buch werden Sie kein Bei- 
spiel hierfür entdecken. Erst recht werden Sie niemals in 
Maschinensprache dem Computer Anweisungen geben. 
Nur in der Urzeit der Computerei mußten die Program- 
miererinnen und Programmierer die Geräte mit langen 
maschinensprachlichen Befehlsfolgen füttern - sofern die 
Schaltungen nicht gleich per Hand durch Umstecken von 
Leitungen auf einer großen Schalttafel eingerichtet wur- 
den. Heute braucht man für die allermeisten Zwecke 
nicht so tief im Inneren der Computer hantieren. Zum 
Programmieren werden höhere oder problemorientierte 
Programmiersprachen (im Gegensatz zu den maschinen- 
orientierten) verwendet — zum Beispiel Pascal. 


Pascal 


Die Entwicklung der höheren Programmiersprachen be- 
gann in den fünfziger Jahren. Die Programme sollten sich 
nicht länger mit den ganz speziellen Schaltvorgängen 
beim jeweiligen Computertyp befassen müssen. Sie soll- 
ten maschinenunabhängig werden, um sich desto besser 
der zu lösenden Aufgabe, dem Problem, zuwenden zu 
können. Die Zeit, die man damit verbringt, sich mit den 
Spezialitäten der Maschine zu plagen, ist für die Bearbei- 
tung der eigentlichen Aufgabe vergeudet. Auch benutzt 
man beim Lösen von Problemen eine anders strukturierte 
Logik als jene, die den Computern zur Verfügung steht. 
Der Mensch kann sich nur mühsam in die Sprachen der 
Maschinenwelt hineindenken. Wie wäre es, wenn sich 
stattdessen der Computer ein wenig der menschlichen 
Vorstellungswelt nähern würde? 

Genau dafür wurden die problemorientierten Spra- 
chen geschaffen. Für den Menschen sind Programmtexte 
in diesen Sprachen leichter lernbar und klarer strukturiert 
als die direkten Maschinenbefehle. Andererseits müssen 
die höheren Sprachen so strikt und eng auf mögliche Ak- 


tionen des Computers festgelegt sein, daß der Computer. 


sie sich selbst in seine eigene Maschinensprache übertra- 
gen kann. 

Ein Programm oder ein Programmcode ist erst einmal 
ein Text, der aus einer Folge von Anweisungen in einer 
Programmiersprache besteht. Dieser. Text soll für den 
Menschen eine möglichst klare Bedeutung und Bezie- 


Was ıst ein Programm? 


hung zu einer Aufgabe haben. Auf der anderen Seite muß 
ihn die Maschine rein formal mit ihren beschränkten 
Handlungsmöglichkeiten interpretieren können. 

Die Kunst des Programmierens besteht darin, in der 
Programmerstellung beiden Ebenen gerecht zu werden: 
den Inhalt angemessen und klar zu beschreiben und da- 
bei formal einwandfrei zu arbeiten. Pascal, das 1969 extra 
zu Lehrzwecken durch Niklaus Wirth, Professor an der 
ETH Zürich, entwickelt wurde, eignet sich dazu ohne 
Zweifel. Benannt ist Pascal nach dem Konstrukteur einer 
der ersten Rechenmaschinen, dem Mathematiker und 
Philosophen Blaise Pascal (1623-1662). Ihre.schweizeri- 
sche Heimat kann die Sprache nicht verleugnen: Sie gilt 
als Musterbild an Überschaubarkeit, darüber hinaus als 
exzellent in ihrer Geradlinigkeit bei der Übersetzung in 
den Maschinencode. Aus unterschiedlichen Gründen hat 
sie sich zwar in der Industrie weniger durchgesetzt als 
andere Programmiersprachen, dient aber als Vorbild bei 
allen Neuentwicklungen problemorientierter Sprachen. 
Als die wahrscheinlich beste vorhandene Lehrsprache 
hat sieinternationale Verbreitung in der Informatikunter- 
weisung-an Schulen. und Hochschulen gefunden. Ihre 
Einsatzmöglichkeiten sind so vielfältig wie die Welt des 
Programmierens. Neuere Pascal-Dialekte unterstützen 
auch modernste Programmiermethoden wie zum Bei- 
spiel die „objektorientierte” (abgekürzt OOP). 

Bevor Sie nun damit beginnen, Pascal-Programme.zu 
schreiben.- das heißt Texte, die der Computer mittels ei- 
nes Übersetzungsprogramms (des Compilers) in Maschi- 
nensprache umwandeln kann - sollten Sie sich jedoch mit 
Ihrem Editor vertraut machen. 


Die Programmierumgebung 


Das Hilfsmittel, das erlaubt, einen Programmtext in den 
Computer zu tippen und ihn zu korrigieren, wird allge- 
mein Editor oder Editorprogramm genannt. Ein Editor ist 
praktisch ein (relativ einfaches) Textverarbeitungspro- 
gramm. 
Generell können Sie sich in einen Editor oder ein Text- 
verarbeitungsprogramm Ihrer Wahl einarbeiten, wenn es 
diesem Programm möglich ist, einen Text als ASCII-Datei 
abzuspeichern. Der jeweilige Pascal-Compiler liest und 
übersetzt oder kurz: „compiliert” dann die ASCII-Datei, 


wenn sie einwandfrei programmiert ist. Moderne Pascal- 
Compiler verfügen über einen in eine Bedienungsoberrflä- 
che integrierten Editor beziehungsweise über eine inte- 
grierte Entwicklungsumgebung (neben der gewöhn- 
lichen Kommandozeilenversion des Compilers). Häufig 
gibt es auch einen sogenannten „Debugger” (ein Dienst- 
programm zur Fehlersuche in den Programmcodes) und 
andere Hilfsprogramme innerhalb der Entwicklungsum- 
gebung des Compilers. Da das Turbo-Pascal-System in 
der PC-Welt einen verbreiteten Standard darstellt, wird 
im folgenden kurz auf die Bedienung von dessen Ent- 
wicklungsumgebung eingegangen. 

Wenn die Diskette mit dem Turbo-System in Laufwerk 
A: steckt, können Sie das System aufrufen, indem Sie 
Turbo hinter die Bereitmeldung A: schreiben (und die 
‘Taste Return beziehungsweise Enter’ drücken). Ab der 
Version 4.0 ist es allerdings sinnvoll, das Turbo-System 
vorher auf einer’Festplatte zu installieren. Folgen Sie da- 
bei den Installationshinweisen und. dem jeweiligen 
Handbuch. Außer der Bereitmeldung (C, C:\TP, C:\TP4 
oder ähnliches) ändert sich beim Festplattenbetrieb am 
Aufruf des Turbo-Systems nichts (also erst in das ange- 
legte Turbo-Verzeichnis wechseln, in dem sich die Start- 
dateien nach einer Installation befinden, dann Turbo ein- 
geben und Return drücken). Wenn alles gut geht, 
erblicken Sie bei Versionen bis zu 3.x auf dem Schirm das 
Signet des Herstellers (Abbildung 1-2). 

Gefragt, ob Sie Fehlermeldungen hinzuziehen möchten 
(Inchude error messages), drücken Sie Y für Yes, Ja, (oder 
auch N, für No, das ist im Moment egal). Sielanden einen 
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Starten und Laden von 
Turbo-Pascal 


Moment später im Zentrum des Turbo-Systems, dem 
Hauptmenü: Bei. den 3er Versionen von Turbo-Pascal 
sieht das ungefähr so aus: 


. Logged drive: A 
ı Active directory: \TURBO 


Work file: 
‚, Main file: 
| 


Edit Compile Run Save 
Dir Quit compiler Options 
Text: 0 bytes 


| 
| 
| 
| Free: 63485 bytes 
| 


Abbildung 1-3: Das Hauptmenü von Turbo-Pascal 3.x 


Ab der Version 4.0 erscheint nach dem Aufruf eine 
Bildschirmmaske mit zwei Textfenstern und der Refe- 
renzzeile sowie eine Zeile mit diversen englischen Begrif- 
fen (die sogenannte Menü-Leiste). Die integrierte Ent- 
wicklungsumgebung von Turbo-Pascal 5.0 meldet sich 
beispielsweise mit folgendem Eröffnungsbild. 


Edit Run Compile Options Debug Break/watch 
ı Edit 
Line 1 col 1 Insert Indent Unindent C:NONAME.PAS 


Turbo Pascal 


Copyright (c) 1983, 1988 by 
Borland International, Inc. 





l 
| 
| 
| 
| 
| 
| Version 5.0 
| 
| 
l 
. Watch 
| 
| 


F1-Help FS-Zoom P6-Switch F7-Trace F8-Step F9-Make F10-Menu 


ar id Ä 
Abbildung 1-4: Das Eröffnungsbild von Turbo-Pascal 5.0 
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Das Turbo-Hauptmenü 


Das englische Wort menu heißt eigentlich „Speisekarte“ 
oder „Speisetafel” (im Sinne einer Kreidetafel, auf der die 
Speisen offeriert werden). In der Datenverarbeitung wird 
das Wort im Sinne einer Liste von Wahlmöglichkeiten ge- 
braucht. Auf dem Bildschirm werden dabei verschiedene 
Auswahlpunkte - die Kommandos beziehungsweise Ar- 
beitsschritte -— angezeigt, die Sie aktivieren können. Die 
Auswahl aus dem Angebot erfolgt in der Regel durch 
Tippen des besonders gekennzeichneten Buchstabens des 
entsprechenden Menü-Punktes (meist der erste). 

Erklärt wird im folgenden nur die Erzeugung einer Da- 
tei für den späteren Programmcode. 


O Mit L für Logged drive (zu deutsch etwa: „das einge- 
stellte Diskettenlaufwerk“) können Sie angeben, auf 
welchem Laufwerk Texte gesucht und geschrieben wer- 
den sollen. Tippen Sie ! und geben Sie das Laufwerk an, 
in das Sie Ihre Arbeitsdiskette eingelegt haben (wenn 
das noch nicht geschehen ist, holen Sie es nach). 

D Mit D für Directory, „Inhaltsverzeichnis”, können Sie 
sich (nach Bestätigen mit Return) den Inhalt der Disket- 
te im gewählten Laufwerk anzeigen lassen. 

DO Geben Sie dann W ein. Sie dürfen sich anschließend 
wünschen, welchen Text sie erstellen beziehungsweise 
bearbeiten möchten (work - „Arbeit“, file - „Datei”). 
Geben Sie einen Dateinamen ein wie: 


BEISP1.TXT 


Wenn es den Text beziehungsweise die Datei noch 
nicht auf Diskette gibt, erscheint die Meldung New File, 
„neue Datei”. 


O Jetzt können Sie gleich edieren, also endlich Programm- 
texte schreiben. Dazu ist nur noch E zu drücken - mit 
einem Mal ändert sich die Bildschirmausgabe, und es 
erscheint eine Kopfzeile über einem noch leeren „Blatt”. 


Die aktuelleren Versionen des Turbo-Systems weisen 
eine sorgfältiger ausgearbeitete und übersichtlichere, oft 


Die Programmierumgebung 


Dateieröffnung bei den 
3er Versionen 


Das Hauptmenü ab der 
Version 4.0 


Line 1 Col 1 Insert Indent A:BEISPi.TXT 


Abbildung 1-5: Die Menü-Leiste der 3er Versionen 


tief gegliederte Menü-Struktur auf. Hier wie bei 3.x berei- 
ten am Anfang vor allem die englischen Begriffe Schwie- 
rigkeiten. Nach dem Aufruf von Turbo-Pascal'ab Version 
4.0 gehen Sie zum Edieren folgendermaßen vor: 


DO Im Hauptmenü wählen Sie die Option File durch Bestä- 
tigen des hell unterlegten Wortes mit Return oder durch 
Drücken des Anfangsbuchstabens f (F oder auch Alt 
und f). Damit ziehen Sie sozusagen eine zugeordnete 
Spezialauswahltafel' (ein sogenanntes Pull-down- 
Menü) herunter, die kurzfristig einen Teil ‚des ‚Bild- 
schirms überdeckt. 

DO Unter der Option Change directory as sich die 
Möglichkeit, einen Zugriffspfad für die zu bearbeitende 
Textdatei anzugeben, speziell ein Laufwerk. Wenn Sie 
also das Laufwerk für den Programmtext wechseln 
wollen, tippen SieC und geben Sie das Arbeitslaufwerk 
an. 

DO Die Option Directory erlaubt Ihnen, das Inhaltsver- 
zeichnis des eingestellten Pfades anzusehen. | 

O Wenn der Punkt Load, „Laden“, angewählt ist, geben 

Sie den Namen Ihrer Arbeitsdatei an. 

0 Die Escape-Taste Esc bringt Sie in allen Fällen wieder 
aus einem Untermenü heraus (sie fungiert als „Befrei- 
er” oder Abbruchtaste). 

O Zurück im Hauptmenü können Sie dann mit der klei- 
nen Pfeiltaste auf die Option’ Edit wandern (und mit 
Return bestätigen) oder einfach das e oder auch Alt und 
ce drücken: Der Cursor blinkt dann im Textfenster, und 
Sie können dort einen Programmtext schreiben. 


Die Ebenen der Computernutzung 


Bevor es weitergeht, veranschaulichen Sie sich .mit dem 
Diagramm auf Seite 19 noch einmal den bis jetzt zurück- 
gelegten Weg. 

Beim ‘Starten des Computers führen in der Maschine 
automatisch ablaufende Routinen auf die Bedienungs- 
ebene des Betriebssystems. Von dort aus werden Pro- 
gramme, wie das Turbo-System, aufgerufen, die den Be- 
nutzer in deren eigene Welt entführen. Von der Ebene des 
Turbo-Hauptmenüs können Sie nach der Festlegung ei- 
nes Namens für die Arböitsdatei in den Editor gehen. Der - 
Editor bildet dann wieder mit eigenen Regeln den Rah- 
men für die Nutzung des Computers zur Programmtext- 
erfassung. 
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Abbildung 1-6: Stufenleiter der Computernutzung 


Aus dem Turbo-Editor kommen Sie mit der Tasten- 
kombination Ctrl-KD heraus (Ctrl- bzw. Strg-Taste nie- 
derdrücken und halten; nun erst k, dann d anschlagen). 

Nach dem Betätigen der Taste Return zeigt sich in Tur- 
bo 3.0, daß die Ebene des Turbo-Hauptmenüs wieder er- 
reicht ist. Von dort zum Betriebssystem führt die Taste Q 
oder g für Quit, „Verlassen“. Ab Turbo 4.0 können Sie die 
Entwicklungsumgebung über die Option Quit im File- 
Untermenü verlassen. Oder Sie können einfach die Ta- 
stenkombination Alt-X drücken, um zur Betriebssystem- 
ebene zurückzukehren. 


Wordstar-Kompatibilität 


Eine ausführliche Besprechung aller Befehle und Funk- 
tionen des Turbo-Editors würde an der Thematik des Bu- 
ches vorbeigehen. Die Entwicklungsumgebung ab der 
Version 4.0 bietet zudem eine Hilfestellung (Taste F1 - 
Help), mit der Sie jederzeit eine Erinnerungsstütze zu den 
Tastenbelegungen erhalten können. Nur soviel: Die mei- 
sten Befehle funktionieren nicht nur im Turbo-Editor, 
sondern ähneln den Tastenbelegungen einer großen Zahl 
von Textverarbeitungsprogrammen. Sie wurden zuerst 
im Iextverarbeitungsprogramm Wordstar von MicroPro 
verwendet und vielfach nachgeahmt. 
Die Texteingabe erfolgt im Editor wie bei einer Schreib- 
maschine. Am Ende jeder Zeile muß der „Wagenrück- 


Verlassen des 
Turbo-Editors 


ein Zeichen nach links Strg-S — 

ein Zeichen nach rechts Strg-D 4 
eine Zeile nach oben Strg-E T 

eine Zeile nach unten Strg-X L 

ein Wort nach links Strg-A 

ein Wort nach rechts Strg-F 

eine Bildschirmseite nach oben Strg-R Bild fl 
eine Bildschirmseite nach unten Strg-C Bild \ 
Springen zum Textanfang Strg-QR Strg Bild ft 
Springen zum Textende Strg-ac Strg Bild ! 
Zum Zeilenanfang Strg-OSs Posi 
zum Zeilenende Strg-OD Ende 
Springen zum Blockanfang Strg-QOB 

Springen zum Blockende Strg-OK 

Zurück zur letzten Cursorposition Strg-QP 

Zeichen links von Cursor löschen Strg-H = 
Zeichen ”unter” Cursor löschen Strg-G Entf 
Wort rechts löschen Strg-T 

Löschen der Zeile Strg-Y 

Löschen bis zum Zeilenende Strg-QY 

Block löschen Strg-KY 
Blockanfang setzen Strg-KB 

Blockende setzen Strg-KK 

Block unsichtbar/sichtbar machen Strg-KH 

Block kopieren Strg-KC 

Block verschieben Strg-KV 

Block auf Diskette schreiben Strg-KW 

Datei als Block einlesen Strg-KR 

Beenden Editieren Strg-KD 
Umschalten Einfügen/Überschreiben Strg-V Einfg 
Suchen Strg-QOF 

Suchen und Ersetzen Strg-QA 

Letzte Suche/Ersetzung fortführen Strg-L 
Unterbrechung eines Befehls Strg-U EsSc 


Abbildung 1-7: Die Tastenbelegung des Turbo-Editors 


lauf“ (also Return) gedrückt werden, weil kein automat- 
ischer Zeilenumbruch vorgenommen wird. Die Tabelle 
(Abb. 1-7) zeigt eine Übersicht über die wichtigsten Funk- 
tionen und die Tastenbelegung des Turbo-Editors. 

Mit der Bedienung des Editors, also des Werkzeugs, 
mit dem Sie später Programme aufschreiben, sollten Sie 
sich auf alle Fälle gründlich vertraut machen, bevor Sie 


mit den ersten Programmbeispielen anfangen. Scheuen 
Sie nicht die mühsame Tipparbeit bei Übungstexten. An 
das Tippen müssen Sie sich ohnehin gewöhnen, da der 
Computer in der Regel seine Anweisungen über die Ta- 
statur bekommt. 


Aufgaben 


1. Üben Sie Texte zu erfassen, zu korrigieren, zu spei- 
chern, sie wieder zu laden, sie zu verändern und wieder 
zu speichern - bis Ihnen der elementare Umgang mit dem 
Editor vertraut ist. 

2. Finden Sie heraus, wie man kleine und große Textab- 
schnitte („Blöcke“) verschieben und kopieren kann, zum 
einen innerhalb eines Textes, zum anderen zwischen ver- 
schiedenen Dateien. Ihre Programme werden bald schon 
recht umfangreich werden. Dann können Sie sich die 
schreibarbeit erheblich vermindern, wenn Sie weitge- 
hend identische Abschnitte, eventuell sogar einzelne 
Wörter kopieren statt sie mehrfach einzutippen. 

3. Für ganze Zahlen wird häufig ein 16-Bit-Code verwen- 
det (zwei gekoppelte 8-Bit-Päckchen). Dabei wird das 
sechzehnte Bit (beziehungsweise das achte Bit des zwei- 
ten verwendeten Bytes) für das Vorzeichen reserviert. 
Versuchen Sie herauszufinden, bis zu welcher Zahl dieser 
Code reicht (die richtige Antwort finden Sie in einem spä- 
teren Kapitel). 


Zeichen oder Zeichen von Zeichen 
benutzen wir nur, solange 
wir keinen Zugang zu den 

Dingen selbst haben. 
Bruder William in: 
Eco, Der Nante der Rose. 


Daten und 
Informationen 










Abbildung 2-1: Das Computermodell nach der DIN-Normi 
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2 Das erste Programm 


Daten und Informationen - Ein neuer Ansatz - 
Das erste Pascal-Programm - 
Programmerklärung und Regeln - Aufgaben 


Das „Herz” des Computers besteht aus Transistor-Schal- 
tern, die „O” und „1” verarbeiten. Doch wozu kann dies 
eingesetzt:werden - wasleistet der Computer im Prinzip? 
Die DIN-Norm 44300 sagt, daß ein Computer oder ein 
Datenverarbeitungssystem eine Funktionseinheit zur 
Verarbeitung von Daten, nämlich zur Durchführung ma- 
thematischer, umformender, übertragender und spei- 
chernder Operationen ist. | 

Von der Eingabe kommen Daten, die dann verarbeitet 
werden, so daß ein Resultat für die Ausgabe produziert 
wird. Zum Beispiel tippt man eine Rechenaufgabe in den 
Computer, und er errechnet das richtige Ergebnis. Oder 
die Polizei fragt beim Verkehrszentralregister an, wer der 
Halter eines falsch parkenden Kraftfahrzeugs ist, und be- 
kommt von dem Computer eine Antwort. Da der Com- 
puter so viele verschiedenartige Aufgaben bewältigen 
kann, wird auch gesagt, daß der Computer ein universel- 
les Gerät zur Datenverarbeitung oder auch zur Verarbei- 
tung von Informationen ist. 

Was aber sind Informationen beziehungsweise Daten? 
In der alltäglichen und in der juristischen Sprache ist ihre 
Bedeutung klar: Als Information, als Daten werden alle 
Angaben, Kenntnisse oder Nachrichten über Personen, 





Verorbeitung 
- mothemaltisch 
- umformend 
—- übertragend 
speichernd 












| Daten und Informationen 


Sachen, Tatsachen oder Sachverhalte bezeichnet. Eine In- 
formation im vollen Sinn der alltäglichen Sprache gibt es 
nur für jemanden und über etwas. Und auch ein „Da- 
tum“ (Einzahl von Daten) wird erst durch die Kenntnis 
seines sachlichen und persönlichen Bezugsrahmens (des 
Kontextes) aussagekräftig. Damit zum Beispiel „Note 5" 
zu einer aussagekräftigen Angabe wird, muß bekannt 
sein, wie das Notensystem aufgebaut ist. Indessen muß, 
wenn eine Note als Maß für eine Leistung angesehen wer- 
den soll, noch mehr berücksichtigt werden: Unter wel- 
chen Umständen die „Note 5” zustande kam und so wei- 
ter. Daten erhalten ihren Sinn erst aus ihrer Interpretation. 
Ein Diagramm verdeutlicht den Vorgang: 


-r fe = - a- -- -:... --- - u 1’ ——- -- LS ggggggg 


Information 






m. 


kei ten ne a ne ee ee 


Abbildung 2-2: Eine Information teilt einer Person einen Sachverhalt aus einem bekannten 
Kontext mit. 
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Ein Computer kann aber im Gegensatz zum Menschen Daten im Computer 
nicht be- oder verarbeiten, daß eine wirkliche Person et- 
was wissen soll und daß es ein konkretes Geschehen ist, 
über das Daten vorliegen. Bei der Dateneingabe in die 
Maschine wird der sachliche und persönliche Kontext ab- 
geschnitten. Nicht mit den eigentlichen Informationen, 
sondern mit einem Skelett von ihnen wird der Computer 
gefüttert. Erst später kann ein Mensch, der die Daten und 
Informationen verwendet, wieder einen Bezug herstel- 
"len, das Skelett mit Leben erfüllen. Ein Mißverhältnis bei 
der Interpretation von Daten liegt heute oft darin, daß 
komplizierte Datenzusammenhänge von keiner einzel- 
nen Person mehr wirklich überblickt werden. 

Bei der Gestaltung von Computersystemen werden die 
Menschen, die die Anlage bedienen, unter den Begriff 
eines Anwendungsprozesses gefaßt, oder es wird von 
einer Schnittstelle zur Maschine gesprochen. Auch wenn 
die Menschen in solchen Modellvorstellungen wie spe- 


zielle Computer erscheinen, darf nicht verkannt werden, 
daß Daten für den Menschen etwas völlig anderes sind 
als für den Computer. 


Ein neuer Ansatz 


Die Begriffsvielfalt und -entfremdung rührt zum Teil da- 
her, daß in der mathematischen Informationstheorie ein 
rein formaler Informationsbegriff geprägt wurde, wel- 
cher die Informationsübermittlung mit der Übermittlung 
einer Folge von Zeichen gleichsetzt. Daß diese Vorstel- 
lung die Wirklichkeit des Computers trifft, kann man aus 
eigener Anschauung bestätigen. 


| .Noossesun. 
l 


Eingabe von Zeichen 


| 
| 


Ausgobe von Zeichen 


Abbildung 2-3: Computer schematisch 






ım Computer 


symbolisches System 


Die Tastatur als Eingabeschnittstelle bildet die Quelle ei- 
nes Stroms von Buchstaben, von Ziffern und einigen an- 
deren Zeichen. Der Bildschirm empfängt einen ebensol- 
chen Strom und stellt ihn dar. Der Prozessor im 
Computer selber ist schließlich nur dasjenige Element, in 
dem die Verarbeitung (programmierte Auswertung und 
zielgerichtete Veränderung) der Zeichen stattfindet. 

Ein Strom von Zeichen kann vielleicht einen ganzen 
Text oder eine komplexe Rechnung darstellen. Aber mit 
dem Sinn des Textes, ja selbst mit der zahlenmäßigen Be- 
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Abbildung 2-4: Welt und Computer 


deutung der Ziffern, also dem ursprünglichen Informa- 
tionsgehalt hat der Computer nichts zu tun. Der Compu- 
ter be- und verarbeitet nur formale Zeichen. Hierin ist er 
allerdings äußerst flexibel und leistungsfähig. Man sagt, 
er ist eine universelle Maschine zur Zeichenmanipulation. 

Der Programmierer oder die Programmiererin bestim- 
men dabei, nach welchen Regeln der Rechner aus einge- 
gebenen Zeichen (oder Symbolen) andere Zeichen zu 
produzieren hat. Der Anwender oder die Anwenderin in- 
terpretiert, daß die Zahlen zum Beispiel Kontostände 
oder Rechtecke bedeuten sollen. Ein kleines Diagramm 
(Abbildung 2-4) verdeutlicht diese Zusammenhänge. 

Eine universelle Maschine ist der Computer, weil er so 
ziemlich jedes andere Gerät, das Zeichen verarbeitet, 
nachahmen und simulieren kann. Dazu muß ihm eine 
passende Folge von Handlungsanweisungen aus einem 
vorhandenen Vorrat von möglichen Anweisungen gege- 
ben werden. Die Gesamtheit der zulässigen Anweisun- 
gen hat einen Namen: es ist eine Programntiersprache. 

In einer Programmiersprache kann eine Kette von An- 
weisungen gebildet werden. Eine zulässige Folge von 
Anweisungen an einen Computer in einer bestimmten 
Programmiersprache ist ein Programmı. 

Mit einem Programm richten Sie die universelle Ma- 
schine Computer so ein, daß sie als ein ganz spezielles 
Gerät arbeitet. Sozusagen bauen Sie sich eine Spezialma- 
schine, entsprechend Ihrem Wunsch - wobei Sie daran 
denken müssen, daß Ihre Wünsche sich nur im Bereich 
der Zeichen- oder Zahlenverarbeitung bewegen dürfen. 


Das erste Pascal-Programm 


Mit einem bescheidenen Wunsch beginnt das erste Pas- 
cal-Programm. Stellen Sie sich einen Druckereikasten vor, 
wie er als Kinderspielzeug verkauft wird. Dort stecken 
lauter einzelne Buchstaben, die zu Stempeln zusammen- 
gesetzt werden können. Ein Stempel, zum Beispiel ein 
Namensstempel, ist ein Gerät, das bei jedem Abdruck 
Zeichen von sich gibt, und zwar immer dieselben. Das 
kann man mit dem Computer nachbilden, der zum Bei- 
spiel Namen mit Hilfe des Bildschirms (oder des Druk- 
kers) schreiben soll. Eine Schrift auf dem Bildschirm hat 
zwar nicht die Unverwechselbarkeit eines Stempelab- 
drucks mit seiner leicht verschmierten Farbe und anderen 


Programmieren 


Das erste Programm | 


individuellen Besonderheiten. Aber wenn man davon ab- 
sieht und sagt, die wesentliche Eigenschaft des Stempels 
ist das Schreiben des Namens, dann kann man ihn im 
übertragenen Sinn durch den Computer ersetzen. 
Abstraktion und Diese Überlegung ist typisch für die Anwendung des 
Programmieren Computers. Man muß.abstrahieren, um zwei an:sich un- 
terschiedliche Dinge als im wesentlichen gleich anzuse- 
hen. Vergleichen Sie eine Digitaluhr mit einer Ziffern- 
-blatt-Uhr. Beide zeigen die Zeit an. Aber ein, rundes 
Ziffernblatt vermittelt ein ganz anderes Gefühl, was „fünf 
vor” oder „viertel nach” heißt, als die rein zahlenmäßige 
Angabe. Meist gibt es unterschiedliche Interessen, und je 
nach Interesse sind unterschiedliche Dinge.wesentlich. 
Zur Praxis Im-folgenden: werden solche Überlegungen hintange- 
stellt. Mit dem „Computer-Setzkasten” soll einfach etwäs 
„gebastelt” werden, was man als Stempel deklarieren 
kann. Dazu müssen Sie dem Computer Anweisungen:ge- 
ben, daß er „wie ein Stempel” arbeiten soll. Das heißt, Sie 
müssen ein entsprechendes Programm schreiben. Ein sol- 
ches Programm in der ae Dee Pascal sieht 
Ä folgendermaßen aus: 
PROGRAM Stempel; 
"B } “i 
EGIN 
Write (* Rupert Röder’ ); 
WriteLn; 3 
"Write (’Pascalweg 123’); 
 Writeln; 
Writeln; 
Write (' 6500 Mainz’ I; 
WriteLn; 
END. 


. Tippen Sie das Programm in den Turbo-Editor ein (mit 
Ihrem. Namen und Ihrer Anschrift), speichern Sie es ‚als 
STEMPEL.PAS-Datei-ab und bringen Sie es (vom Haupt- 
-menü aus) mit der. C(ompile)-Option zur Compilation 
(das heißt zur automatischen Übersetzung in die Maschi- 
. nensprache) und ‚mit Hilfe von R(un) zum Ablauf. Dann 
erscheint auf dem Bildschirm: 


Rupert Röder 
Pascalweg 123 


- 6500 Mainz 
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Programmerklärung und Regeln 


Zur Erläuterung des ersten Programms sei zunächst’an- 
gemerkt: Pascal kennt je nach Dialekt eine unterschiedli- 
che Anzahl. von Schlüsselwörtern oder auch Befehlen. 
Das Ihnen vorliegende Buch bezieht sich, wie bereits er- 
wähnt, vorrangig auf Turbo-Pascal (weitgehend iden- 
tisch mit Quick-Pascal). Eine Übertragung auf andere 
Pascal-Dialekte sollte indessen keine Schwierigkeiten be- 
reiten. Obwohl ‘die Schlüsselwörter im Programmcode 
groß oder klein geschrieben werden können, werden sie 
zur besseren Unterscheidung in diesem Buch generell 
groß geschrieben. Syntaxdefinitionen, Kommandozeilen- 
Parameter, Anweisungen und dergleichen (siehe unten) 
werden nur dann kursiv geschrieben, wierin es der Sinnzu- 
sammenhang erfordert. Folgende Schlüsselwörter Sina in 
Turbo-Pascal reserviert: 

ABSOLUTE, AND, ARRAY, ASSEMBLER, ASM, BE- 
GIN, CASE; CONST, CONSTRUCTOR, DESTRUCTOR, 
DIV, DO, DOWNTO, ELSE, END, EXTERNAL, FAR, FI- 
LE, FOR, FORWARD, FUNCTION, GOTO, IE IMPLE- 
MENTATION, IN, INLINE, INTERFACE, INTERRUPT, 
LABEL, MOD, NEAR, NIL, NOT, OBJECT, OF, OR, 
PACKED, PRIVATE, PROCEDURE, PROGRAM, RE- 
CORD, REPEAT, SET, SHL, SHR, STRING, THEN, TO, 
TYPE, UNIT, UNTIL, USES, VAR, VIRTUAL, WHILE, 
WITH, XOR. 

Jedes Pascal-Programm fängt mit dem (englisch ge- 
schriebenen!) Schlüsselwort PROGRAM an. Danach 
kommt ein Name (im ersten Programmbeispiel Stempel), 
gefolgt von einem Semikolon. Der Name soll eine mög- 
lichst klare und treffende Überschrift für das Programm 
bilden. Die Namensvergabe will gut überlegt sein, denn 
: treffende Bezeichnungen sind eines der wichtigsten Mit- 
tei, um sich und anderen’beim Programmieren die Bedeu- 
tung der'Vorgänge im Computer vor Augen zu halten 
und den Überblick nicht zu'verlieren. 

In Standard-Pascal wird hinter den Programmnamen 
(vor das Semikolon) noch (Input, Output) einschließlich 
der runden Klammern geschrieben. Es wird dadurch an- 
gedeutet, daß das Programm Ausapen und Ausgaben 
vollziehen soll. Tr 

Es gibt auch formale Vorschriften für die Erfindung 
von Namen oder Pascal-Wörtern. Bei der Bildung von 
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Programmname 


Pascal-Wörter 
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Anweisungen an den 
Computer 


Namen (Pascal-Wörtern, identifier, auch „Bezeichner” ge- 

nannt) gelten die folgenden Regeln: 

O Ein Name muß mit einem Buchstaben beginnen. 

O Danach dürfen Buchstaben und Ziffern in beliebiger 
Folge stehen. 

O Auch der Unterstrich _istim Namen erlaubt, aber keine 
besonderen Zeichen wie der „Klammeraffe” @, die 
Tilde - oder ähnliches. 

D Weil das ganzesich am amerikanischen Alphabet orien- 
tiert, zählen auch die deutschen Sonderzeichen (ä, ö, ü, 
Ä, Ö, Ü, ß) zu den nicht erlaubten Zeichen. 

QC Namen dürfen sehr lang sein (in Turbo-Pascal zum 
Beispiel maximal 127 Zeichen). 

OD Es dürfen Groß- und Kleinbuchstaben beliebig ge- 
mischt verwendet werden; zwei Namen, die nur in 
Groß- und Kleinschreibung voneinander abweichen, 
werden als identisch betrachtet. 

O Ein vergebener Name kann in einem Programm nur in 
einer Bedeutung erscheinen. 

DO Die Schlüsselwörter von Pascal können nicht als Na- 
men verwendet werden. 


Richtig gebildete Namen sind zum Beispiel: 


Nummerl 
MeinAlterOnkel 
DasSteBuchMose 
Das_5_te_Buch_Mose 
Beginn 


Unzulässig sind die Namen: 


007 
Kaiser-Friedrich-Ring 
Dieß.tezZahl 

Änderung 

Program 


Erkennen Sie die Regelverstöße? (Bei Program, program 
oder, wie in diesem Buch geschrieben, PROGRAM han- 
delt es sich beispielsweise um ein Schlüsselwort von Pas- 
cal, deshalb dürfen Sie es nicht als Namen verwenden.) 

Die eigentlichen Anweisungen an den Computer wer- 
den eingeleitet durch das Schlüsselwort BEGIN und ab- 
geschlossen durch END, wonach ein Punkt folgt. Die ein- 
zige Sorte von Anweisungen, die in dem kleinen Beispiel 
vorkommen, sind die Write- beziehungsweise WriteLn- 


. Anweisungen. 


Write bedeutet hier „Schreiben auf den Bildschirm”. 
Was geschrieben werden soll, steht dahinter in runden 
Klammern. Wenn es sich um einen wörtlich zu überneh- 
menden Text handelt, so wird dieser nochmal zwischen 
Apostrophen gesetzt, das heißt zwischen zwei kleine 
Häkchen ’ (auf PC-Tastaturen wird der Apostroph er- 
zeugt, indem erst die Taste mit dem Auslassungszeichen 
gedrückt, dann die Leertaste betätigt wird). 

WriteLn ist die Abkürzung für das englische Write line, 
„schreibe eine Zeile”. Ohne nähere Angaben bewirkt 
WriteLn einen Zeilenabschluß. Praktisch stellt es die An- 
weisung dar: „Anden Anfang der nächsten Zeile vorrük- 
ken!”. WriteLn kann auch mit beigefügtern Text in runden 
Klammern analog zu Write verwendet werden. Der 
Sprung in die nächste Zeile erfolgt, nachdem der Text auf 
den Bildschirm gebracht wurde. Nach den Anweisungen 
finden Sie stets einen Strichpunkt. Die Regel lautet: 


Zwei Anweisungen müssen durch Semikolon getrennt 
werden. 


Weil es dieses Trennzeichen in Pascal gibt, haben Sie 
ansonsten - im Gegensatz zu anderen Programmierspra- 
chen - beim Programmieren alle Freiheit. Sie können das 
Programm anordnen, wie Sie wollen, nur möglichst über- 
sichtlich sollte es sein. 

Ein Pascal-Programm besteht stets aus drei Teilen: 


1. Dem Programmkopf 
2. Dem Deklarations- oder Vereinbarungsteil 
3. Dem Anweisungsteil 


PROGRAM <Programmname> Progrommkopf 


Anweisungsteil 
<Houptprogramm> 2 
END 





Abbildung 2-5: Grobgliederung eines Pascal-Programms 


Merkzettel 


Grobgliederung eines 
Pascal-Programms 


Der Programmkopf gibt dem Ganzen eine Überschrift. 
Im Anweisungsteil werden die Befehle an den Computer 
aufgerufen. Was macht der Deklarationsteil? Beim ersten 
Programmbeispiel enthielt er noch gar nichts. Jedoch 
wird er später bei großen Programmen weitaus den mei- 
sten Raum beanspruchen. Sie werden nach und nach se- 
hen, was dort hinkommt. Vorab läßt sich schon sagen, 
daß dort Größen (Variablen) und Hilfsprozesse (Prozedu- 
ren) definiert werden, die nachher im .Anweisungsteil 
(dem Hauptprogramm) verwendet werden können. 


Aufgaben 


1. Welche der folgenden Wörter sind zulässige Pascal-- 
Namen? 


Kantstraße_10 
Zu-spaet-gekommen 
DesMorgensInDerFruehe 
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Abbildung 2-6: Auto und Baum in Zeichensatzgrafik 


3 Prozeduren 
und Konstanten 


Prozeduren - Lesen eines zusammengesetzten Pascal- 
Programms - Steueranweisungen für die Bildschirm- 
ausgabe - Feste Größen erhalten Namen - Konstanten 
für Zeichen und Textstücke 


Das Programm des vorigen Kapitels hat auf dem Bild- Teite und herrsche! 
schirm quasi einen Stempel mit einer Adresse imitiert. (Altrömische 
Genauso können Sie ein Programm schreiben, das einen M"ormel) 
Rahmen auf den Bildschirm malt. Verwenden Sie hierzu 

die ASCH-Zeichen 179, 191, 192, 196, 217 und 218 . Sie er- 

halten diese, indem Sie die Ziffernfolge bei niederge- 

drückter Alt-Taste auf dem Zifferblock der Tastatur ein- 

geben. 


PROGRAM Rahmen; { 


BEGIN 
Write ( 95 
WriteLln; 
Write (’ | 
Writeln; 
Write (’ | 
WriteLn; 
Write (’ | ; 
WriteLn; 
Write (’ | I’); 
WriteLn; 
Write (’ | |’); 
Writeln; 

END. 











Rupert Röder 
Pascalweg 123 


6500 Mainz 
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Abbildung 3-1: Abdruck von GrosserStempel 
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Prozeduren und Konstanten | 
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Sie haben also ein Programm für den Druck der Adres- 
se und eines für einen Rahmen. Wie lassen sie sich zu 
einem „Grossen Stempel” kombinieren, der die Adresse 
mit Umrahmung schreibt? 


Prozeduren 


Einer der Gründe, aus denen die Programmiersprache 
Pascal ihre große Bedeutung erlangt hat, ist die weitge- 
hende Unterstützung, die sie für alle Verfahren bietet, ein 
größeres Programm aus Teil- oder Unterprogrammen 


“ aufzubauen. Zum Beispiel ist es möglich, aus den Pro- 


grammen (kleiner) Stempel und Rahmen das Programm 
GrosserStempel zu erzeugen.. Um ein ursprünglich selb- 
ständiges Programm zum Baustein eines größeren Pro- 


gramms zu machen, müssen Sie in Pascal folgendes tun: 


Aufruf 
einer Prozedur 


O Das Schlüsselwort PROGRAM im Prögrammkopf 
‘durch das Schlüsselwort PROCEDURE ersetzen. 

oO Hinter das schließende END statt des Punktes ein Semi- 
"kolon bringen. 

O Die so entstandene Prozedurdefinition (oder Prozedur- 
deklaration) in den Deklarationsteil des übergeordne- 
ten Programms setzen. 


Das übergeordnete Programm heißt dann Hauptpro- 
gramm, .der Baustein Prozedur.. 

‚Im Anweisungsteil des übergeordneten Programms 
kann die Prozedur mittels Nennung ihres Namens ein- 
oder mehrfach aufgerufen werden. Bei jedem Aufruf wer- 
den die in ihr enthaltenen Anweisungen der Reihe nach 
abgearbeitet. 

Die einfachste Kombination der Unterprogramme 
Stempel und Rahmen, die nur leider noch nicht ganz das . 


"Gewünschte zeichnet, sieht so aus: 


: PROGRAM GrosserStempel; 


„= » PROCEDURE Stempel; 
BEGIN 
Write (’Rupert Röder’ 


\ Nritekn; E 

Write C Pascalweg 123° 
"Writeln; 

WriteLln; 


32 a 


v 


{Erster Versuch} - 


r 


); 


); 


Write (‘6500 Mainz’); 
WriteLln; 
END (* von Stempel *); 


PROCEDURE Rahmen; 
BEGIN | | u 


Write (’ ’); 
WriteLn; | | 
Write (’ 9); 
WriteLn; | | 
Write (’ 2 
writeLn; | | 
Write (’ ') 
wWriteLn; | ae | 
Write (’ e): 
Writeln; il 
"Write (’ I); 
Writeln; IN 


END (* von Rahmen *);. 
ve 
BEGIN (* von GrosserStempel *) 
Rahmen; - 
Stempel; 
END. 


Sie finden hier zum ersten Mal Kommentare in das Pro- 
gramm eingefügt: zusätzliche Erklärungen, mit denen Sie 
für sich und andere das Programm klarer gestalten kön- 
nen. Damit der Computer sie beim Kompilieren überliest, 
müssen sie von geschweiften Klammern { } oder von (* 
am Anfang und *) am Schluß eingerahmt sein. In der Re- 
gel werden im folgenden die geschweiften Klammern 
verwendet, wenn es sich um eine rein inhaltliche Erläute- 
rung zum Programm handelt. Die andere Klammernform 
ist nach formalen Gesichtspunkten gesetzt, zum Beispiel 
für die Angabe, welche Prozedur gerade endet. 

Ein Kommentar, der-mit der einen Klammerart eröffnet 
wurde, kann nur mit der dazugehörigen Schlußklammer 
aufhören! (Dadurch können sogar Kommentare der einen 
Sorte in Kommentaren .der anderen stehen.) 

Vergessen Sie, einen Kommentar zu schließen, oder ha- 
ben Sie ihn mit der falschen Klammer nur vermeintlich 
verlassen, so erhalten Sie eine Fehlermeldung wie unex- 
pected end of source („unerwartetes Ende der Quelldatei” 
beziehungsweise des Programms). Der Compiler findet 


Kommentare in Pascal- 
‚Programmen 


Prozeduren und Konstanten | 


kein Programmende, weil Ihr vermutlich korrekt ge- 
schriebenes Schluß-END für ihn Teil des von ihm igno- 
rierten, noch unabgeschlossenen Kommentars ist. Anders 
als in anderen Programmiersprachen können in Pascal 
auch ohne Kommentare schon viele inhaltliche Hinweise 
in das Programm eingeschlossen werden. Sparen Sie den- 
noch nicht mit zusätzlichen Angaben, wann immer es der 
Verständlichkeit dient. 


Lesen eines zusammengesetzten 
Pascal-Programms 


Was „macht“ eigentlich das obige Programm? Um zu er- 
fahren, was ein Pascal-Programm verrichtet, müssen Sie 
zunächst in den Anweisungsteil, genauer in den Ariwei- 


"sungsteil des Hauptprogramms, schauen. Denn auch die 


Prozeduren, die ja praktisch Programme sind, die ihre 
Selbständigkeit verloren haben, bestehen aus Prozedür- 
kopf, Deklarations- und Anweisungsteil. Es muß also 
stets angegeben werden, von welchem Anweisungsteil 
die Rede ist. Damit die verschiedenen Teile leichter zu 
überblicken sind, kommentieren Sie am besten das ab- 
schließende END jeder Prozedur mit dem Prozedurna- 
men, eventuell ähnlich auch das BEGIN eines Arwei- 
süungsteils. Ein Pascal-Programm müssen Sie also stets 
„von hinten“ lesen, da der Anweisungsteil am Schluß 
steht. | | 
Wie Sie in dem Beispiel zum ersten Mal sehen, ist dieser 
in der Regel kürzer als der Deklarationsteil. Im Anwei- 
sungsteil von GrosserStempel wird als erstes die Prozedur 
Rahmen aufgerufen, die einen Kasten malt.“ Danach 





Rupert Röder 
Pascalweg 123 
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Abbildung 3-2: Abdruck von GrosserStempel 


schreibt die Prozedur Stempel die Adresse auf den Schirm, 
und das Programm ist zu Ende. 

Nur kann leider noch riicht die Rede davon sein, daß 
die Adresse in den Kasten gesetzt würde. Denn die Wri- 
teLn-Anweisungen, die beide Prozeduren verwenden, 
bringen ihre Texte alle brav untereinander. Das Pro- 
gramm erzeugt also nur ein Bild, das in etwa Abb. 3-2 
(Seite 34) entspricht. 


Steueranweisungen 
für die Bildschirmausgabe 


Als erstes ergänzen Sie das Programm durch die Anwei- 
sung: „Vor anderen Aktionen den Bildschirm leer ma- 
chen“. Diese Anweisung heißt in Turbo-Pascal CirScr, 
was eine Abkürzung des englischen clear screen, „putze 
den Schirm”, ist. Sie fügen die Anweisung hinter das BE- 
GIN des Hauptprogramms ein. Nach dem Aufruf von 
ClrScr fängtein Write oder WriteLn links oben in der Bild- 
schirmecke an zu schreiben. 

Damit sind Sie noch nicht viel weiter, denn das verän- 
derte Programm setzt immer noch die Adresse unter statt 
in den Kasten. Sie müssen eine Möglichkeit finden, nach- 
dem der Rahmen auf den Bildschirm gemalt ist, nochmal 
nach oben zu wandern und dort etwas hinzuzufügen. 
Diese Möglichkeit wird in Turbo-Pascal und einigen an- 
deren Pascal-Varianten durch die GoToXY-Anweisung 
geboten (go to x y, für „gehe zu x y”. Mit GoToXY kann 
die Schreibposition, die sonst zeilenweise.nach rechts 
und unten vorrückt, an eine bestimmte Stelle des Bild- 
schirms versetzt werden. Wohin gesprungen wird, ist 
durch zwei Zahlen, quasi einer x- und einer y-Koordinate 
anzugeben, also zum Beispiel: 


GoToXY (20, 8) 


Dabei wird 20 als x- und 8 als y-Koordinate gewertet. 
Das Koordinatensystem sieht etwas anders aus als in der 
Mathematik: Es beginnt im Bildschirm in der Ecke links 
oben mit dem Punktx=1 und y=1 (in Turbo-Pascal - 
hier gibt es manchmal Unterschiede zu anderen Pascal- 
‚, Compilern). Wie sonst auch, beziehen sich die x-Koordi- 
naten auf die waagrechte und die y-Koordinaten auf die 
senkrechte Achse. | | 


| Bildschirmsteuerung 


Bildschirm 
„Klar machen” 


GoToXY 


Das GoToXY- 
Koordinatensystem 


Prozeduren und Konstanten | 


Sprung zu Spalten 
und Zeilen 


Gebrauch 
ab Turbo 4.0 
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Abbildung 3- -3: Das Koordinatensı en für er (in Turbo: 
Pascal) 


"Einfacher ist es, sich folgendes zu merken: Die y-Koor- | 
dinate bezeichnet die Nummer der Zeile auf dem Bild- 
schirm, diex-Koordinate die Nummer der Spalte, und bei 
GoTIoXY wird in.der. Klammer erst die Spalte und dann 
die Zeile angegeben (durch. Komma getrennt). | 

Ab Turbo 4.0 müssen Sie in. allen Programmen, die 
CirScr oder GoToXY verwenden, angeben, daß Ihr Pro- 
gramm die Bildschirm-Hilfseinheit (englisch , UNIT ) mit 
speziellen Bildschirmbefehlen benutzt. 

Sie müssen unmittelbar unter dem Programmkopf de- 
klarieren: 


USES crt; 
beziehungweise 
USES crt, printer; 


(d ie UNIT printer erleichtert Ausgaben auf dem Drucker). 
Damit Sie unter Kontrolle haben, was wohin auf den 
Schirm kommt, müssen Sie jetzt vor jedes Write eine Go- 
ToXY-Anweisung einfügen. Wenn Sie sich diese Arbeit 
machen, dann soll es gleich richtig sein, das heißt, Sie sol- 
len noch ein weiteres Mittel kennenlernen, das die Spra- 
che Pascal für das zuverlässige, komfortable und über- 
sichtliche Programmieren anbietet: die Konstanten. 


Feste Größen erhalten Namen 


Erinnern Sie sich, was schon im vorigen Kapitel stand: 
Die sorgfältige Bezeichnung von Programmobjekten ist 
eines der wichtigsten Mittel, um sich und eventuell ande- 
ren die Bedeutung von Abläufen im Computer klar vor 
Augen zu halten. Sie müssen sich zum Grundsatz ma- 
chen, nicht bloß das Korrekte zu meinen, sondern es aus- 
zusprechen beziehungsweise gewissenhaft niederzu- 
schreiben. Ein Programm kann man nur auf Richtigkeit 
überprüfen, wenn seine Abläufe und deren Bedeutung 
nachvollzogen werden können. Dafür müssen die Bedeu- 
tungen möglichst deutlich und durchsichtig angegeben 
sein. Die Zahl 8 zum Beispiel kann für alles mögliche ste- 
hen: für einen Preis, einen Monat, eine Spalte, eine Zeile. 
Die jeweilige Bedeutung mit einem Namen zu versehen, 
ist häufig von Vorteil und zeugt von gutem Programmier- 
stil. Sprechen Sie nicht von „Z” oder „Zahl”, wenn Sie ei- 
nen Monat meinen. Scheuen Sie auch nicht die Mühe, 
„Preis“ statt „P“ hinzuschreiben, wenn es sich um einen 
Preis handelt. Bei nächster Gelegenheit nehmen Sie „P” 
für Prozentsatz, verwechseln Preis und Preisänderung 
oder einen neuen mit einem alten Preis. Jede Ungenauig- 
keit des Ausdrucks trägt die Gefahr in sich, daß anschlie- 
ßende Überlegungen unklar werden. 

‚Sie bestimmen nun in der endgültigen Fassung von 
GrosserStempel, was dort bei Ihnen die 8 sein soll. Nämlich 
die Anfangszeile der eingerahmten Adresse auf dem 
Schirm. 

Wenn im Programm eine feste Zahl (oder auch andere 
feste Größen) vorkommt, die eine bestimmte Bedeutung 
trägt, definiert man sie als eine Konstante. Dafür schrei- 
ben Sie in den Deklarationsteil (nach Standard-Pascal- 
Vorschrift direkt hinter dem Programmkopf) unter der 
Überschrift CONST eine Konstantenvereinbarung, wel- 
che die Form 


Pascal_Name = {Ein fester Wert}; 


hat. Zum Beispiel fügen Sie in das Programm Grosser- 
Stempel ein: 


CONST 
Anfangszeile = 8; 
Anfangsspalte 20; 


Konstanten- 
deklaration 


Prozeduren und Konstanten | 


Besonders leistungsfähig werden die Konstanten da- 
durch, daß Sie andere Werte aus ihnen durch Addition 
(oder andere übliche Rechenoperationen) ableiten »kön- 
nen. Sie bilden feste Bezugspunkte für ein ihnen zugeord- 
netes System. Das fertige Programm sollte insgesamt so 
aussehen: | 


PROGRAM GrosserStempel; 
{In perfekter Form) 


USES crt, printer; {Muß nur ab den Versionen 
Turbo-Pascal 4.0 eingefügt: werden. 


CONST 
Anfangszeile = 8; 
Anfangsspalte = 20; 


PROCEDURE Stempel; 

BEGIN 
GoToXY (Anfangsspalte + 4, Anfangszeile + 1); 
Write (’Rupert Röder’); 
GoToXY (Anfangsspalte + 4, Anfangszeile + 2); 
Write (’Pascalweg 123’); ' 
GoToXY ( Anfangsspalte + 4, Anfangszeile + 4); 
Write ('6500 Mainz’); | 

END (* von Stempel *); 


PROCEDURE Rahmen; 


BEGIN 
GoToXY (Anfangsspalte, Anfangszeile + 0); 
Write ('T TTMIMMMRAgAI]7'); ee, 
GoToXY (Anfangsspalte, Anfangszeile + 1); 
Write (’| 15 
GoToXY (Anfangsspalte, Anfangszeile + 2); 
Write (’| 3 1’); | 
GoToXY (Anfangsspalte, Anfangszeile + 3); 
Write (’I | i 19; 
GoToXY ( Anfangsspalte, Anfangszeile + 4); 
Write (’| 1% .i 


GOTOXY (Anfangsspalte, Anfangszeile + 5); 
Write (’ı dd; | 
END (* von Rahmen *); 


BEGIN (*.von GrosserStempel‘ *) 
ClrScr; 
Rahmen; 
Stempel; 

END. 


Wenn Sie das Programm in den Computer tippen, kön- 
nen Sie reichlich Gebrauch von der Kopierfunktion des 
Editors machen, da viele Zeilen fast identisch sind. Übri- 
gens: Bei den meisten Computern gibt es eine Taste, PrtSc 
(Print screen, „Drucke den Bildschirm aus”) oder einfach 
Druck beschriftet, mit der Sie einen Abzug des momenta- 
nen Textbildschirminhalts auf dem Drucker erhalten, so- 
fern einer angeschlossen ist. Wenn das Programm läuft, 
können Sie sich auf diese Weise sein Ergebnis ausdrucken 
lassen. 

Finden Sie nicht auch, daß das Programm in dieser 
Form viel verständlicher ist, als wenn in der GoToXY-An- 
weisungen lauter Zahlen stehen, deren Bedeutung nicht 
direkt angegeben'st? Sie beobachten den zweiten Vorteil, 
der mit der reichlichen Verwendung von Konstanten ver- 
bunden ist: Wenn Sie eine neue Idee haben, wohin die Fi- 
gur gezeichnet werden soll, zum Beispiel soll sie in die 
Ecke rechts oben kommen oder richtig in die Mitte ge- 
rückt werden, dann müssen Sie jetzt nur noch die Defini- 
tion der Konstanten am Programmanfang abändern. Oh- 
ne Konstanten hätten Sie das ganze Programm zu 
durchforsten und überall die Parameter von GoToXY neu 
zu berechnen und anzugeben. Konstanten dienen der 
sorgfältigen Bezeichnung von Bedeutungen in Pascal- 
Programmen und zugleich einer bequemen ne 
an neue Anforderungen. 


Bottom-up-Verfahren 


Als Sie von den vorhandenen Bausteinen Stempel und 
Rahmen ausgingen und daraus das Hauptprogramm zu- 
sammensetzten, haben Sie das Verfahren angewandt, das 
in der Theorie der Programmentwicklung Bottom-up- 
Methode heißt, die „vom Boden nach oben“ gerichtet ist. 
Diese Methode kann grob in die Irre führen. Denn da die 
Teilprogramme nicht für das größere Ziel konzipiert wur- 
den, wäre es kein Wunder, wenn sie nachher auch nicht 
korrekt arbeiteten. Im kleinen Maßstab erleben Sie dies 
vielleicht, wenn Sie tatsächlich versuchen, Programme 
wie Rahmen und Stempel zusammenzuführen, und die 
Adresse nicht in die Umrandung paßt. Die Theorie lehrt 
deshalb, daß beim Programmieren zunächst vom Ober- 
ziel auszugehen sei und dann die Bausteine dafür zu su- 
chen sind. 


Änderbarkeit 
durch Konstanten 


Schrittweise 
Verfeinerung 


Top-down-Verfahren 


Das Gegenstück zum Bottom-up-Verfahren heißt Top- 
down-Methodik. Gemäß dieser haben Sie zuerst die Spit- 
ze (top) und das Hauptziel zu definieren. Die Analyse 
dieses Ziels zeigt, welche Etappen, welche Zwischenziele 
gesteckt werden müssen, um das ÖOberziel letztlich zu er- 
reichen. Auf die Etappen wenden Sie das gleiche Verfah- 
ren an, bis am Ende der Analyse leicht ausführbare Ein- 
zelschritte stehen. Auf das Programmieren in Pascal 
bezogen, bedeutet dies: 

Die Aufgabe eines größeren Programms wird solange 
auf Prozeduren verteilt, welche sich wiederum in Teilpro- 
zeduren gliedern, bis schließlich die Teilprozeduren der 
letzten Ebene mit elementaren Pascal-Anweisungen wie 
Write, WriteLn und anderen zu realisieren sind. 

Um die Zusammenhänge darzustellen, existiert eine ei- 
gene Form von Diagrammen, Strukturdiagramm oder 
Problemaufbaugraph genannt. 

Schematisch sieht ein solches Diagramm ungefähr so 
aus: 


Ei —— - m 0 ne nn en ee mn m nn 





DIR mn 


u 3-4: Problemaufbaugraph oder Strukturdiagranm 


Es wird auch von dem Verfahren der schrittweisen Ver- 
feinerung oder stepwise refinement gesprochen: Vom gro- 
ben Anfangsziel ausgehend gelangen Sie mit der erfor- 
derlichen Zahl von Zwischenschritten schließlich zu 
Detailanweisungen. Völlig rein läßt sich das Verfahren 
aber nicht praktizieren. Schon dadurch, daß es auf einen 
bestimmten Vorrat von Detailhandlungen führen muß, 
trägt es ein Bottom-up-Element in sich. Wenn eine strenge 
Top-down-Methodik möglich wäre, müßte sich letztlich 


jedes Ziel durch geeignete Zwischenschritte auf die be- 
kannten Einzelhandlungen reduzieren lassen (eine all- 
zu simplifizierende Annahme). In der. Praxis herrscht 
zwangsläufig das Wechselspiel zwischen den großen 
Wünschen und dem Wissen, was im Detail machbar ist. 
Beides entwickelt sich in Abhängigkeit vom anderen fort. 
In Entsprechung zu bürokratischen, militärischen oder 
anderen Organisationstrukturen sagt man, daß ein Pro- 
gramm entsprechend dem Iop-down-Aufbau eine hier- 
archische Struktur aufweist. Das hat die ganz konkrete 
und für die Praxis wichtige Bedeutung, daß der Ablauf 
des Programms auf beliebig hoher Ebene verfolgt werden 
kann. So wie man in einer Organisation den Leiter einer 
Abteilung fragen kann, was in seinem Bereich geschieht, 
und er sich dafür verantworten muß, so genügt in einem 
hierarchisch strukturierten Programm die Betrachtung 
der Teilprogramme höherer Stufe, um einen Überblick 
über die Aktionsfolge des Programms zu erhalten. 
Programmtechnisch entspricht die Zerlegung eines 
Ziels in seine Unterziele der Abfolge der Prozeduraufrufe 
im Anweisungsteil. Im Deklarationsteil werden dann die 
Prozeduren beschrieben, das heißt wiederum ihre Aufga- 
ben auf Teilaufgaben zurückgeführt. Nicht ganz zu dem 
Schema der Top-down-Analyse paßt, daß Prozeduren 
auch mehrfach und in unterschiedlichen Zusammenhän- 
gen verwendet werden können. 
‚Noch einmal zurück zum Beispiel GrosserStenpel. Ein 
Strukturdiagramm dafür ist schnell gezeichnet: 


er 
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Abbildung 3-5: Problemaufbaugraph GrosserStempel 


Genau genommen müßten die Teilaufgaben Rahnen 
und Stenipel wieder untergliedert und auf ihre Einzelan- 
weisungen (Write, ... ) zurückgeführt werden. ‘Zum 
Schluß des Kapitels soll mit einer kleinen Abwandlung 
des Stempelprogramms demonstriert werden, wie. man 
Konstanten auch für andere Sorten von Größen als Zah- 
len anwendet. 


Hierarchische 
Strukturierung von 
Programmen 


Zur Praxis 


Prozeduren und Konstanten | 


Merkzettel 


Konstanten für Zeichen 
und Textstücke 


Oben sahen Sie schon, wie die bloße Änderung der Kon- 
stantendefinition eine Korrektur an vielen Stellen des 
Programms ersparen kann. Dies läßt sich ausnutzen, um 
den.Rahmen unterschiedlich gestalten zu können. Dazu 
fügen Sie im Programm unter die Definition’der Konstan- 
ten Anfangszeile und Anfangsspalte noch eine Zeile ein, in 
der.eine Konstahte für das Rahmenzeichen, das heißt das 
Zeichen, aus dem der Rahmen bestehen soll, vereinbart 
wird. Ausnahmsweise bildet hier nur ein einzelner Buch- 
stabe die Konstantenbezeichnung, weil sonst die Darstel- 
lung unübersichtlich würde. Probieren a es ; zunächst 
mit 


CONST 
Anfangszeile = 8; 
Anfangsspalte = 20; 
2 = Rn {RahmenZeichen) 


Sie sehen: Wenn eine Konstante für ein einzelnes Zei- 
chen, hier das Sternchen, oder wenn sie für eine Folge 
von Zeichen (zum Beispiel Pfeil = —>’) stehen soll, so 
muß das einzelne Zeichen oder die Zeichenfolge in Apo- 
strophen gesetzt werden. Im Grunde handelt es sich um 
ein kurzes Textstück (ähnlich wie die Textstücke bei der 
Write- -Anweisung). | 

Die Prozedur Rahmen wandeln Sie jetzt so ab, daß die 
vielen Zeichen, die den Rahmen bilden sollen, nicht di- 
rekt angegeben werden, sondern dafür eine Konstante 
verwendet wird. In die Write-Anweisung muß sie so oft 
aufgenommen werden, wie ein entsprechendes Zeichen 
stehen soll. Dabei. lernen Sie gleich die Regel kennen: 







Wenn mehrere Textstücke mit einer einzigen Write/ 
WriteLn-Anweisung ausgegeben werden sollen, so | 
wird alles in die Klammer geschrieben und durch 
Kommas voneinander getrennt. 







Die Prozedur Rahmen sieht dann so aus: 


PROCEDURE Rahmen; 
BEGIN 
GoToXY (Anfangsspalte, Anfangszeile + 0); 
Write (2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2); 
GoToXY (Anfangsspalte, Anfangszeile + 1); 


Write (Z,’ "2)3 
GoToXY (Anfangsspalte, Anfangszeile + 2); 
Write (2, 2); 
GoToXY (Anfangsspalte, Anfangszeile + 3); 
Write (Z,’ a ',2); 
GoToXY (Anfangsspalte, Anfangszeile + 4); 
Write (2, ’ !;2)3 


GoToXY (Anfangsspalte, Anfangszeile + 5); 
Write (2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2); 
END (* von Rahmen *); 


Das Programm sollte folgendes Bild zeichnen: 
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Abbildung 3-6: Abdruck von GrosserStempel in Zeichensatzgrafik 


Durch entsprechende Änderung der Konstanten kön- 
nen beliebige andere Zeichen an die Stelle des Sternchens 
treten. Statt das betreffende Zeichen in Apostroph hinzu- 
schreiben erlaubt Turbo-Pascal auch, hinter einem Num- 
mernzeichen # die Codenummer des Zeichens nach der 
ASCIH-Tabelle anzugeben. Das ist vor allem für die Zei- 
chen interessant, die zwar auf dem Bildschirm oder ei- 
nem anderen Gerät ausgegeben werden können, aber im 
Editor nicht direkt zugänglich sind (im IBM-Zeichensatz 
zum Beispiel das Herz # mit.der Nummer 3). Mit-Z =,#3 
beziehungsweise Z = » erhalten Sie dann die folgenden 
Variationen des vom Programm erzeugten Bildes: 


Prozeduren und Konstanten | 
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Abbildung 3-7: Variationen der Zeichensatzgrafik von GrosserStempel 
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Aufgaben 


1. Sorgen Sie dafür, daß Ihr Initialenstempel, den Sie im 
letzten Kapitel angefertigt haben, einen.Rahmen erhält. 
2. Zeichnen Sie ein Strukturdiagramm für die Figur 

„Auto mit Tannenbaum” aus dem letzten Kapitel. 

3.1 Entwerfen Sie ein Strukturdiagramm für den Bau 
eines realen Hauses. 

{ ‚‚ 3.2 Entwerfen Sie das Strukturdiagramm für die Zeich- 
nung eines „Häuschens” (vgl. Abb. 4-1, Seite 46). Schrei- 
ben Sie ein Programm, das ein solches Bild „stempelt” 
(nutzen Sie die Möglichkeiten des Zeichensatzes). 

3.3 Entwickeln Sie weitere Bausteine für eine ganze 
Siedlung. 

4. Schreiben Sie ein strukturiertes Programm, da eine 
Einladungskarte Far a ER auf den Bildschirm malt. 
Denken Sie auch hier an die vielfältigen Variationen, die 
der IBM-Zeichensatz bietet. 


4 Variable und ein- 
fache Variablentypen 


Mehrfachverwendung einer Prozedur - Die Dekla- 
ration von Variablen - Die Wertzuweisung - Die ein- 
fachen Variablentypen - Etiketten mit Varianten - 
Der Datentyp STRING - Aufgaben 


Nicht alles muß fest bleiben in einem Programm, sondern 
anstelle konstanter Werte können Platzhalter stehen, die 
während des Programmablaufs unterschiedliche Werte 
erhalten können. In der Informatik wird dann von Varia- 


| Mehrfachverwendung 


Im Wechsel steckt 
ein beständiger Geist. 
F. Schiller 


blen gesprochen. Technisch gesehen entspricht einer Va- . 


riablen ein (automatisch zugewiesener) kleinerer oder 
auch größerer Abschnitt im Speicher des Computers - so- 
zusagen ein Fach, in dem bestimmte Dinge abgelegt und 
nachgesehen werden können. Allerdings gibt es in Pascal 
für verschiedene Arten von Daten, die im Speicher depo- 
niert werden sollen, unterschiedliche Arten von Fächern, 
verschiedene Typen der Variablen. Der Typ eirier Variab- 
len ist sozusagen ihr „beständiger Geist”, das, Was sich 
bei der Variation der Werte nicht ändert. Durch die wech- 
selnden möglichen Belegungen von Variablen kann ein- 
und dieselbe Folge von Anweisungen innerhalb eines 
Programms mehrere Aufgaben erledigen. Dieselbe Proze- 
dur läuft immer wieder ab. Dennoch gibt es Abwandlun- 
gen bei dem, was geschieht. 


Mehrfachverwendung einer Prozedur 


Wenn Sie ein Programm mit Hilfe von Prozeduren Waen- 
de, Dach, Tuer und Fenster geschrieben haben, welches ein 
Bild ungefähr wie das folgende zeichnet, so möchten Sie 
vielleicht noch ein zweites Fenster an anderer Stelle hin- 
zufügen. 

Nichts einfacher als dies, sofern es im Programm Kon- 
stanten zur Bezeichnung von Anfangsspalte und -zeile 
des Fensters (beziehungsweise der relativen Anfangs- 
spalte und Anfangszeile bezüglich eines festen Punktes 
des Hauses) gibt. Im folgenden Auszug aus einem Pro- 
grammtext (den Sie an den Stellen, an denen Kommenta- 
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Abbildung 4-1: Haus in Zeichensatzgrafik 


re mit Pünktchen:stehen, selbst ergänzen können) sehen 
Sie, wie Sie aus Konstanten Variablen machen und diese 
verwenden können, um zwei Fenster zu erzeugen: 


PROGRAM Haus; 


USES crt, printer; 


CONST 
AusgangszeileHaus = 20; {Untere linke Ecke) 
AusgangsspalteHaus = 15; {Untere linke Ecke} 
{Weitere Konstanten ... } 
VAR 
.AnfangszeileFenster : Integer; 


{Unten links, relativ zum Haus} 
AnfangsspalteFenster : Integer; 
{Unten links, relativ zum Haus} 


PROCEDURE Waende; 
BEGIN 


END {* von Waende *); 


PROCEDURE Dach; 
BEGIN 


END (* von Dach *); 


PROCEDURE Tuer; 
BEGIN 


END (* von Tuer *); 


PROCEDURE Fenster; 
BEGIN 
GoToXY (AusgangsspalteHaus + AnfangsspalteFenster, 
AusgangszeileHaus - AnfangszeileFenster); 
Write (’MMMMM’); 
GoToXY : (AusgangsspalteHaus + AnfangsspalteFenster, 
AusgangszeileHaus - AnfangszeileFenster - 1); 
Write (’H H’); 
GoToXY (AusgangsspalteHaus + AnfangsspäalteFenster, 
AusgangszeileHaus - AnfangszeileFenster - 2); 
Write (’H H’); 
GoToXY (AusgangsspalteHaus + AnfangsspalteFenster, 
AusgangszeileHaus - AnfangszeileFenster - 3); 
Write (’H H’); 
GoToXY (AusgangsspalteHaus + AnfangsspalteFenster, 
AusgangszeileHaus - AnfangszeileFenster - 4): 
Write (’HHHHH'); 
END (* von Fenster *); 


Variable | 


BEGIN (* von Hauptprogramm *) 

Clr$Scr; | 

waende; 

Dach; 

Tuer; 

‚AnfangszeileFfenster := 3; 

{3 Zeilen über dem Boden des Hauses) 

AnfangsspalteFenster := 18; 

Fenster; 

AnfangsspalteFenster := 28; ! 
' Fenster; 
END. 


Die Deklaration von Variablen 


Am Beispiel ist zu sehen: Ähnlich wie Konstanten müs- 
. sen auch Variablen deklariert werden. Die Variablende- 
klarationen oder -vereinbarungen stehen im Deklara- 
tionsteil des Programms unter’der Überschrift VAR. 
Variable und Konstanten Wenn ein Programm seine Selbständigkeit verliert und 
in Prozeduren zur Prozedur eines übergeordneten Programms wird, 
darf es in Pascal seine eigenen Variablen und Konstanten 
behalten. Die Variable und Konstanten, die im Deklara- 
tionsteil. einer Prozedur vereinbart sind, gelten als „pri- 
vat”. Sie sind nur innerhalb der Prozedur (einschließlich 
all ihrer Unterprozeduren) bekannt und können außer- 
halb nicht verwendet werden. Ihre Inhalte gehen verlo- 
ren, wenn die Prozedur verlassen wird. Umgekehrt sind 
aber Variablen und Werte des Hauptprogramms (oder ei- 
ner übergeordneten Prozedur) der Prozedur durchaus 
zugänglich. Daher können im Hauptprogramm zum Bei- 
'- spiel AnfangszeileFenster und AnfangsspalteFenster verein- 
bart sein und an die Prozedur Fenster überreicht werden. 
in Standard-Pascal folgt die Vereinbarung von Variablen 
auf die Festlegung der Konstanten; es darf nur je einmal 
eine’ Überschrift CONST und.eine Überschrift VAR ge- 
ben. ‘Turbö-Pascal erlaubt auch die Mischung der ver- 
'schiödenen ‘Abschnitte des Deklarationsteils, erkenntlich 
än der jeweils vorangesteliten Überschrift. 
Die Deklaration einer Variablen besteht aus der Nen- 
'nung-eines Namens, gefolgt von einem Doppelpunkt und 
.- der-Angabe des Typs, den die Variable haben soll. 
Typ  Der-Typ kennzeichnet den Bereich der möglichen Wer- 
.'te,‘den die Variable annehmen kann. Wie Sie.eine Kon- 
stante äüf.einen einzelnen Wert festlegen, so müssen Sie 


bei Variablen entscheiden, für welche Sorte von Werten 
sie genommen werden soll. Wenn mehrere Variablen des 
gleichen Typs vorkommen, dürfen ihre Namen auch, 
durch Kommas getrennt, aufgezählt werden. Sie hätten 
also auch schreiben können: 


VAR 
AnfangszeileFenster, 
AnfangsspalteFenster: Integer; 


Die Angabe des Typs Integer bedeutet, daß die Variable 
ganzzahlige Werte enthalten kann (englisch integer, 
„ganz”, „ganzzahlig”). Zugelassen sind alle positiven 
ganzen Zahlen (1, 2, 3 ...), ebenso 0 oder negative ganze 
Zahlen (-1, -2, -3, 4 ...). Die anderen Grundtypen von Va- 
riablen werden etwas weiter unten besprochen. 


Die Wertzuweisung 


Im Anweisungsteil des Programms oder einer Prozedur 
kann eine Variable ganz ähnlich verwendet werden wie 
eine Konstante. Sie hat allerdings bei Programmbeginn 
noch keinen (beziehungsweise irgendeinen unsinnigen, 
undefinierten) Wert. Vor ihrer ersten Verwendung muß 
sie einen bestimmten Wert empfangen und kann - anders 
als eine Konstante - danach immer wieder neue Werte 
bekommen. 

Die grundlegende Anweisung, die der Variablen ihren 
Wert gibt, heißt Wertzuweisung. In einer Wertzuweisung 
wird links der Variablenname hingeschrieben, gefolgt 
von Doppelpunkt und unmittelbar . anschließendem 
Gleichheitszeichen. Rechts steht der Wert oder auch ein 
noch zu berechnender Ausdruck, auf den die Variable ge- 
setzt werden soll. Die Computer interpretiert die Wertzu- 
weisung von rechts nach links. Erst wird der Wert rechts 
gelesen oder ermittelt, dann das Ergebnis auf die Variable 
links gesetzt. Beispiele: 


Anfangsspalte := 18; 

Spalte = Anfangsspalte + 3; 
Anfangszeile = 22; 

Zeile = Anfangszeile - 4; 

Hoehe = Bodenzeile - Firstzeile; 


Rechts in einer Wertzuweisung dürfen Variablen und 
Konstanten erscheinen, links kann nur eine Variable ste- 


Der Typ Integer 


Integer 


Real 


hen, die das Ergebnis aufnimmt. Alle beteiligten Variab- 
len und Konstanten müssen selbstverständlich deklariert 
sein. Die Typen der Variablen auf der rechten Seite einer 
Wertzuweisung müssen .entweder den gleichen Typ wie 
die Variable auf der linken Seite haben oder in diesen um- 
wandelbar sein. 


Die einfachen Variablentypen 


In Standard-Pascal gibt es vier einfache Variablentypen, 
zu’ denen in Turbo-Pascal und anderen Implementatio- 
nen weitere hinzukommen können. Den Reichtum an zu- 
sammengesetzten oder komplexen Datentypen, den Pas- 
cal und die Pascal-Abkömmlinge vor anderen 
Programmiersprachen auszeichnen, werden Sie später 
kennenlernen. Die vier einfachen Variablentypen in Pas- 
cal sind: 

Integer steht für die (negativen und positiven) ganzen 
Zahlen; Sie haben diesen Variablentyp schon kennenge- 
lernt. Das Unangenehmste an den Integer-Zahlen ist ihre 
Beschränkung auf einen begrenzten Bereich, in der Regel 
(und so auch in Turbo-Pascal) von -32768 bis +32767. Zah- 
len, die größer als der maximale, MaxInt genannte, Inte- 
ger-Wert sind, gehören ebensowenig dazu wie weit im 
negativen Bereich liegende Zahlen. 32767 ist aber für vie- 
le Zwecke eine ziemlich kleine Zahl. Vorsicht-müssen Sie 
auch bei Berechnungen walten lassen: 32767 + 1 ergibt 
zur großen Überraschung -32768. Die Integer-Zahlen sind 
sozusagen kreisförmig angeordnet. Das liegt an der 
Form, wie die Werte im Speicher dargestellt sind: Eine In- 
teger-Zahl belegt im Speicher zwei Byte, 16 Bit, auf denen 
16-stellige Dualzahlen, das heißt theoretisch bis 65536 ste- 
hen können. Aber die Hälfte dieser Zahlen wird für die 
negativen Zahlen verwendet (das Anfangsbit dient quasi 
als Vorzeichen). 

Real heißt der Variablentyp für die Dezimalzahlen, die 
mit Dezimalpunkt geschrieben werden (zum Beispiel 
233.41 oder 0.001). Die englischen reals sind im Deut- 
schen die reellen Zahlen (so heißen.in der Mathematik die 
Dezimalzahlen). Im Computer werden Dezimalzahlen in 
der sogenannten Gleitpunktdarstellung gespeichert, wie 
Sie es vielleicht schon am Taschenrechner gesehen haben. 
Eine Gleitpunktzahl (beziehungsweise Gleitkommazahl) 
besteht zum einen aus der Mantisse (in Turbo-Pascal elf- 


stellig), einer Ziffernfolge, vorstellbar als eine mit „0”.be- 
ginnende Dezimalzahl. Des weiteren besitzt sie einen Ex- 
ponenten, der angibt, um wieviel Stellen das Komma (be- 
ziehungsweise der Dezimalpunkt) verschoben werden 
soll. Zum Beispiel sieht 233.41 in elfstelliger Gleitpunkt- 
darstellung folgendermaßen aus: 


0.23341000000E+3 


„E” soll dabei anzeigen, wo die Exponentenzahl be- 
ginnt. In Turbo-Pascal wird intern der Exponent als 8-stel- 
lige Dualzahl (in einem Byte) und die Mantisse als 40-stel- 
lige Dualzahl (in fünf Bytes) dargestellt: 

Wegen der Beschränkung des Integer-Bereiches muß 
notgedrungen bei großen Werten, die eigentlich ganzzah- 
lig sein müssen, auch auf Real zurückgegriffen werden. 

Wenn Sie nicht ausdrücklich etwas anderes program- 
mieren, wird eine Real-Größe in der ziemlich unanschau- 
lichen (aber den Speicherinhalt wiedergebenden) Gleit- 
punktdarstellung ausgegeben. In der Regel werden Sie 
aber mit einer normalen Dezimalzahl, zum Beispiel bei 
einem DM-Betrag mit zwei Stellen hinter dem Komma 
(oder hinter dem Punkt), arbeiten wollen. Dann müssen 
Sie das entsprechende Format bei der Ausgabe in der Wri- 
te-Anweisung angeben. Dazu nennen Sie nach der auszu- 
gebenden Größe (zum Beispiel eine als Real vereinbarte 
Variable Preis): 


O nach einem ersten Doppelpunkt die Gesamtbreite, in 
welcher die Dezimalzahl ausgerichtet werden soll, 

O nach einem zweiten Doppelpunkt die Zahl der Stellen 
hinter dem Dezimalpunkt. Also zum Beispiel: . 


Write (Preis :6:2, °' DM'); 


Anstelle der bestimmten Angaben wie 6 und 2 können 
Sie auch Integer-Konstanten oder Variablen verwenden. 
Falls Sie ein zu kleines Format für einen Wert angeben ha- 
ben, wird das Format überschritten (und nicht etwa die 
Zahl abgeschnitten, was in anderen Programmierspra- 
chen vorkommen kann). Verdeutlichen Sie sich das Ge- 
sagte über die Betrachtung der Bildschirmausgabe für die 
Werte 8.95, 98.50 und für den nicht mehr in das angegebe- 
ne Format passenden Wert 5130.1233 anhand des folgen- 
den Programmbeispiels: 


Ausgabeformat 
für 
Real-Größen 


Ausgabeformat 
für andere 
Typen 


Char 


Boolean 


PROGRAM Ausgabeformat; 


VAR 
Preis: Real; 


BEGIN 
Preis := 8.95; 
WriteLln (Preis :6:2, ' DM’); 
Preis := 98.50; 


WriteLn (Preis :6:2, ' DM’); 

‘Preis := 5130.1233; 

WriteLn (Preis :6:2, ' DM’); 
END. 


Übrigens können Sie die Formatierung auf eine Ge- 
samtbreite auch bei anderen Typen von Ausgabegrößen 


‚anwenden. Setzen Sie einfach einen Doppelpunkt hinter 


die Variable oder den Ausdruck. Danach bezeichnen Sie 
die gewünschte Breite, auf welcher der Wert rechtsbün- 
dig erscheinen soll (Nachkommastellen gibt es.dann na- 
türlich nicht). Durch: 


WriteLn (Name :40); 


würde der Wert einer STRING-Variablen (vergleiche un- 
ten) Name rechtsbündig zur Bildschirmmitte gesetzt, 
wenn der Cursor vorher am Zeilenanfang stand. Ein 
Trick, um eine bestimmte Anzahl von Leerzeichen schrei- 
ben zu lassen, besteht darin, ein leeres Textstück mit bei- 
spielsweise Anzahl zu formatieren (wobei Anzahl eine In- 
teger-Variable oder -Konstante sein muß): . 


WriteLn (’’ :Anzahl); 


Char ist der spezielle Typ für einzelne Zeichen (englisch 
character, „Buchstabe, Zeichen“). Die Liste aller mögli- 
chen Char-Werte ist durch die Zeichensatztabelle des ver- 
wendeten Rechners definiert. Eine Char-Variable nimmt 
im Speicher ein Byte in Anspruch. Char-Werte werden 
stets in Apostrophen angegeben (so wie Sie es schon bei 
den Char-Konstanten am Ende des letzten Paragraphen 
sehen konnten): 


’ıA’ ’B’ a’ ‚@’ nr ‚je 2’ .y' oo’ 


Schließlich gibt es den Typ Boolean für die beiden logi- 
schen (booleschen) Werte „wahr” (true) und „falsch” (fal- 
se). Für eine boolesche Variable würde an sich im Spei- 
cher nur ein einzelnes Bit benötigt. Da aber nur ganze 


| Etiketten mit Varianten 


Bytes direkt ansprechbar sind, nimmt zum Beispiel Turbo 
auch jeweils ein Byte für einen booleschen Wert. 


Etiketten mit Varianten 


Mit wenig Aufwand können Sie die Stempel mit Rahmen 
aus dem letzten Kapitel, die Sie dort mit Hilfe einer Kon- 
stanten für das Rahmenzeichen kreierten, so umbauen, 
daß zwei oder mehr unterschiedliche Bilder ‚gleichzeitig 
auf dem Bildschirm erscheinen. Sofern ihr System eine 
Hardcopy erlaubt, können Sie sich damit Aufkleber für 
unterschiedliche Zwecke herstellen. 

Was ist dafür zu tun? Die vorher als Konstante verein- 
barte Größe Z müssen Sie jetzt als Char-Variable deklarie- 
ren. Unter der Überschrift VAR steht im Deklarationsteil 
des Programms: 


Anfangszeile : Integer; 
Anfangsspalte : Integer; 
zZ : Char; {RahmenZeichen} 


Und vor dem Aufruf der Rahmenprozedur ist außer 
den jeweiligen Anfangszeilen und -spalten auch Z mittels 
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Abbildung 4-2: Aufkleber für unterschiedliche Zwecke und mit variierten Texten 





einer Wertzuweisung mit dem richtigen Wert 'zu beset- 
zen. Zum’ Beispiel für das Herz %# die Nummer #3; für 
„unendlich“ der Char-Wert '»’ (beziehungsweise: #236) 
und so weiter. Im Hauptprogrammteil stünde dann: 


BEGIN (* von GrosserStempel *) 


CirScr; 

Z = #3; 
Anfangszeile := 1; 
Anfangsspalte := 1; 
Rahmen; 
Stenpel; 

Z = #236; 
Anfangsspalte := 26; 
Rahmen; 

Stempel; 

zZ = #250; 
Anfangszeile := .8; 
Rahmen; Be 
Stempel; 

zZ !:= #240; 
Anfangsspalte := 1; 
Rahmen; 

Stempel; 

END. 


So weit ist es ja ganz hübsch. Praktischer wäre aber, 
wenn sich auch der Text im Kasten variieren ließe: Sie be- 
nötigen hierzu Variablen; die nicht nur einzelne Zeichen, 
sondern ein ganzes Päckchen davon, zum Beispiel eine 
Reihe von fünfzehn einzelnen Zeichen ‘aufnehmen kön- 
nen. Dafür gibt es in den meisten eo), Dialekten einen 
eigenen Iyp. 


Der Datentyp STRING 


String ist im Englischen eine Schnur, an die Perlen aufge- 
fädelt sein können. Ein String beim Programmieren, ‚be- 
deutet eine Kette von Zeichen. In Turbo-Pascal (und’ähn- 
lich bei den meisten Pascal-Arten, allerdings nicht in 
Standard-Pascal) gibt es einen vordefinierten Typ 
STRING für Variablen, die dazu bestimmt sind, Zeichen- . 
ketten aufzunehmen. Um zum Beispiel: die Prozedur 
Stempel universell zu halten, können Sie schreiben: 


PROCEDURE Stempel; 
BEGIN 
GoToXY (Anfangsspalte + 4, 
Anfangszeile + 1); 
Write (Name); 
GoToXY (Anfangsspalte + 4, 
Anfangszeile + 2); 
Write (Strasse); 
GoToXY (Anfangsspalte + 4, 
Anfangszeile + 4); 
Write (Ort); 
END (* von Stempel *); 


Name, Strasse und Ort sind dabei STRING-Variablen, 
die wie alle Variablen vor ihrer Verwendung zu deklarie- 
ren sind. Bei der Deklaration ist außer dem Wort STRING 
noch in eckigen Klammern die Maximallänge, die die 
Zeichenkette haben soll, anzugeben. Wenn ab Turbo 4.0 
diese Längenbegrenzung fehlt, gilt eine Maximallänge 
von 255. Also zum Beispiel: - 


Name: STRING [18]; 
Strasse: STRING [18}; 
Ort: STRING [18]; 


Alle Größen mit dem gleichen Typ dürfen bekanntlich 
auch gemeinsam vereinbart werden, das heißt, es darf 
auch geschrieben werden: 


Name, Strasse, Ort: STRING [18]; 


An eine STRING-Variable werden im Ablauf des Pro- 
gramms STRING-Werte, also in Apostrophen eingerahm- 
te Textstückchen, zugewiesen. | 


Name := ’Rupert Röder’; 
Stempel; 

Name := 'Michaela Meyer’; 
Stempel; 


Ist ein Textstück länger als maximal vorgesehen, so 
wird der Überschuß in der Regel einfach wegfallen. In 
Turbo-Pascal kann ein STRING maximal 255 Zeichen um- 
fassen. | 


STRING- . 
Deklaration 





Aufgaben 


1. Bauen Sie Ihr Haus vom letzten Kapitel zu einer Villa 


‚mit vielen Fenstern und Türen aus oder erzeugen Sie aus 


vielen Häusern eine ganze Straße. Sie können das Ausse- 
hen der Häuser mit Hilfe von Char- und STRING-Größen 
variieren, | 

2. Wenn Sie über einen Drucker verfügen, schreiben Sie 
sich ein Programm zum Druck von Einmach-Etiketten, 
das jeweils drei Etiketten nebeneinander und mehrere 
Reihen untereinander erstellt. Dabei sollen die Etiketten - 
von einer konstanten Anfangsnummer ausgehend - fort- 
laufend numeriert sein. 

"3. Schreiben Sie ein Programm, das die Einladungskar- 
ten für eine Feier nach folgendem Muster schreibt (und, 
wenn möglich, je drei auf den Bildschirm bringt). Überle- 
gen Sie sich erst, wie das Strukturdiagramm aussieht! 


Mau-Mau-Club 
Mainz 


wir laden herzlich zu unserer Feier am 21.6. um 18 h in 


bitte mitbringen. 


Dein 


Abbildung 4-3: Muster für Einladungskarten 


z | 


| 
| 
den bekannten Räumen ein. Getränke UNE 2reteees 
| 
| 
| 
| 
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5 Die FOR-Anweisung 


Ein erstes Beispiel zur FOR-Anweisung - 
Zählschleifen - Allgemeine Beschreibung - 
Syntaxdiagramme - Verbundanweisungen - 
Zerlegung von STRINGs - Aufgaben 


Das wesentliche Element, durch das ein Programm 
scheinbar zu eigenem Leben erweckt wird, ist die gesteu- 
erte Wiederholung von Teilabläufen. Als ein erstes Hilfs- 
mittel, um so etwas zu bewirken, lernen Sie die FOR-An- 
weisung kennen. Dabei können Sie gleichzeitig auch 
einen genaueren Blick auf die im letzten Kapitel vorge- 
stellten Datentypen werfen. 


Ein erstes Beispiel 
zur FOR-Anweisung 


Betrachten Sie noch einmal das Beispiel GrosserStempel in 
der Fassung, bei der Konstanten für Textzeichen verwen- 
det wurden. Mittels einer Char-Variablen Z gab das Pro- 
gramm den Stempel mit verschiedenen Umrahmungen 
auf dem Schirm aus (PROGRAM GrosserStempel; (In per- 
fekter Form). Möchten Sie ohne viel Aufwand alle mögli- 
chen Rahmenzeichen durchgehen und anschauen, wie 
das Bild jeweils wirkt? Wandeln Sie dazu das Programm 
wie folgt ab: 


PROGRAM TesteRahmenzeichen 
“ {Variante des GrossenStempels}; 


USES crt, printer; 


CONST 
Anfangszeile = 8; 
Anfangsspalte = 20; 
VAR 


2 : Char; 


Die For-Anweisung | 


PROCEDURE Stempel; 
BEGIN 
GoToXY (Anfangsspalte + 4, Anfangszeile + 1}; 
Write (’Rupert Röder’); 
GoOToXY (Anfangsspalte + 4, Anfangszeile + 2); 
Write (’Pascalweg 123’); 
GoToXY (Anfangsspalte: + 4, Anfangszeile + 4); 
Write (’6500 Mainz’); . 
END (* von Stempel *}; 


PROCEDURE Rahmen; 
BEGIN 
GoOToXY (Anfangsspalte, Anfangszeile + 0); 
Write (2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2); 
GoToXY (Anfangsspalte, Anfangszeile + 1); 


Write (2, ’ ',2); 
GoToXY (Anfangsspalte, Anfangszeile + 2); 
Write (Z,' ",‚Z2); | 
GoToXY (Anfangsspalte, Anfangszeile + 3); 
x Write (2,' ',2); 
GoToXY (Anfangsspalte, Anfangszeile + 4); 
Write (zZ, ’ DD; 


GoToXY (Anfangsspalte, Anfangszeile + 5); 
Write 1(2,2,2,2,2/2,2,2,2,2.2,2,2,2,2,2,2,2.2,2,2); 
END (* von Rahmen *); 


BEGIN (* von Hauptprogramm ”) 
FOR Z := '}’ TO 'W’Do {Oder, was dasselbe ist: FOR 2 
:= #33 TO #254) ae. 
BEGIN 5 
CirScr; 
Rahmen; 
Stempel; 
GoToXY (3,20); 2 
Write (’Drücken Sie bitte die Taste RETURN, ’); 
Write (’um verschiedene Rahmen anzuschauen! ’); 
ReadLn; 
END; 
END. 


Schema der DasSchema der FOR-Anweisung läßt'sich so angeben: 
FOR-Anweisung 


FOR Z := Anfangswert TO Endwert DO 
. BEGIN 
TE 
END; :: 


58 | 


In Worten ausgedrückt, bedeutet dies: 

1. Setze auf die Variable Z den Anfangswert (im Bei- 
spiel '!”). 

2. Führe aus, was hinter DO steht. Dabei (ganz wich- 
tig!) gehören alle Anweisungen zu DO, die durch BEGIN- 
END umrahmt sind. 

3. Die Schritte 1. und 2. führe ebenso durch für den 
nach Anfangswert nächsten Wert, danach für den Wert, 
der auf diesen folgt, und so weiter, bis sie schließlich für 
den Endweert vollzogen sind. 

Da der dritte Schritt das Programm anweist, mehrfach 
an einer früheren Stelle wieder anzusetzen, eine Reihe 
von Anweisungen kreisförmig zu durchlaufen, wird von 
einer FOR- oder auch Laufschleife gesprochen. 

Das Beispielprogramm führt also die Anweisungen, 
die hinter DO zwischen BEGIN und END stehen, für je- 
des Zeichen ab dem Ausrufezeichen bis zum einschließ- 
lich letzten Zeichen der Zeichentabelle aus. Jeweils wird 


| Zählschleifen 


Anwendung 
auf das Beispiel 


zunächst der Bildschirm gelöscht, dann der Stempeltext' 


geschrieben und der Rahmen gemalt. Der Rahmen wird 
dabei mit dem jeweilig vorhandenen Inhalt der Rahmen- 
zeichenvariable Z auf den Bildschirm ausgegeben (also 
erst mit einem Ausrufezeichen, dann mit Gänsefüßchen 
und so weiter). 

Die Anweisung ReadLn (Abkürzung für read line, also 
„lies Zeile“) ist auch noch zu erklären: Sie bewirkt, daß 
der Programmablauf an dieser Stelle anhält, bis die RE- 
TURN- beziehungsweise ENTER-Taste gedrückt wird. 
Dadurch können Sie entscheiden, wie lange Sie einen 
Rahmen anschauen wollen. 


Zählschleifen 


Im Beispiel wurde durch die FOR-Anweisung ein Teil des 
Zeichensatzes durchgegangen. Mit diesen Char-Werten 
wurde dann eine Bildschirmausgabe aktiviert. Ähnlich 
können auch Abschnitte des Typs Integer durchlaufen 
werden. Der Wert der Integer-Variable, die dann an der 
Stelle von Z die FOR-Schleife steuert, erhöht sich dabei 
immer um 1. Im einfachsten Fall beginnt die abgeklap- 
perte Zahlenfolge mit 1 und endet mit einer festen Zahl. 
Die Schleifenvariable zählt hier praktisch, wie oft die An- 
weisungen ausgeführt werden. Die Schleife heißt daher 


ReadLn 


auch Zählschleife. Das folgende Beispiel, Moviel. ge- 
nannt, illustriert diese Verwendung der FOR-Anweisung. 

Delay Damit das Programm effektvoller abspult, ist eine Ver- 
zögerungsanweisung eingebaut: In Turbo-Pascal kann 
die interne Prozedur Delay (delay, „Verzögerung”) aufge- 
rufen werden, die das Programm eine bestimmte Zahl . 
von Millisekunden anhält (die Zahl wird in Klammern 
beigefügt). 


PROGRAM Moviel; 
USES crt, printer; 


CONST 
Verzoegerungswert =.300; 


VAR 
zahl: Integer; 


PROCEDURE PfeilMalen; 
BEGIN 
Write ('*--> '); 
END (* von PfeilMalen *); 


‚PROCEDURE KanteMalen; 
BEGIN 
"Write ("o+r+- '); 
END (* von KanteMalen *); 


BEGIN (* von Hauptprogramm *) 
CirScr; | 
FOR Zahl := 1 TO 30 DO 
BEGIN 
PfeilMalen; 
Delay (Verzoegerungswert); 
END; 
WriteLln; 
WriteLln; Delay (1000); 
FOR Zahl := 1 TO 30 DO 
BEGIN | 
KanteMalen; > 
Delay (Verzoegerungswert); 
END; 


END. 


Wenn Sie eine Pascal-Variante benutzen,.die nicht über 
eine Delay-Anweisung verfügt, können Sie eine zusätzli- 
che FOR-Schleife anwenden. Diese macht nichts anderes, 


als dem Computer etwas Rechenarbeit zu bereiten, so 
daß der Programmablauf einen Moment stockt: 


FOR Wartezahl := 1 TO 1000 DO 
BEGIN 
END; 


Wartezahl muß als Integer-Variable deklariert sein. 
Experimentieren Sie mit unterschiedlichen Verzoegerungs- 
werten und verschiedenen Endwerten für die Laufschlei- 
fe. Vielleicht möchten Sie auch die Prozeduren PfeilMalen 
und KanteMalen weiter ausgestalten. Mit einer geringfü- 
gigen Erweiterung wird das Programm zu Movie2. De- 
klarieren Sie noch die folgende Prozedur, die so viele 
‘Leerzeichen auf den Schirm schreibt, wie die Variable 
Zahl vorgibt: 


PROCEDURE VerschiebungüUmzZahl; 

VAR 
Nummer: Integer; 

BEGIN 
FOR Nummer := 1 TO Zahl DO 
BEGIN 

Write (' '); 

END; | 

END (* von VerschiebungUmZahl *); 


Rufen Sie dann die Prozedur jeweils vor PfeilMalen be- 
ziehungsweise KanteMalen auf, und setzen Sie zwischen 
PfeilMalen beziehungsweise KanteMalen und dem Delay 
ein WriteLn. Das Programm wird einen ziemlich verän- 
derten Effekt zeigen. Als weitere Veränderung des Pro- 
gramms sollten Sie noch ausprobieren, die gemalten Pfei- 
le und Kanten auf dem Bildschirm mitzählen zu lassen. 
Dazu fügen Sie die folgende Programmzeile noch in die 
Anweisungen, die zum DO gehören, ein: 


Write (Zahl); 


Allgemeine Beschreibung 


Sie haben jetzt mehrere Beispiele mit FOR-Anweisungen 
gesehen. Was Sie dabei schon praktiziert haben, sei noch- 
mals festgehalten: In der FOR-Anweisung wird eine 
(Kontroll- oder Steuervariable genannte) Größe auf einen 
Anfangswert gebracht und anschließend jeweils um ei- 


| Zählschleifen 


Nur Aufzählungstypen 
in der 
FOR-Anweisung 


nen Wert weitergesetzt, solange ein Endwert noch nicht 
erreicht ist. Es darf vorkommen, daß der Endwert vor 
dem Anfangswert liegt (das passiert leicht, wenn die 
Werte nicht direkt, sondern als Rechenausdrücke angege- 
ben sind). In diesem Fall werden die zum DO gehörenden 
Anweisungen gar nicht ausgeführt, im anderen Fall für 
jeden Wert der Kontrollvariable einmal. Die Kontrollvari- 
able kann in diesen Anweisungen für unterschiedlichste 
Zwecke verwendet werden, soll dabei aber keinesfalls ei- 
nen neuen Wert erhalten. 

Beachten Sie: Die Typen von Kontrollvariable, An- 
fangswert und Endwert müssen zueinander passen. Die 
Werte vom Anfangs- bis zum Endwert sollen ja auf die 
Kontrollvariable gebracht werden. Ist die Kontrolivariab- 
le eine Integer-Zahl, so müssen es auch Anfangs- und 
Endwert sein. Das Entsprechende gilt für Zeichen. 

Real- und STRING-Variablen können nicht als Kon- 
trollvariablen benutzt werden (und daher auch Real- und 
STRING-Werte nicht als Anfangs- oder Endwerte auftau- 
chen). Denn bei ihnen gibt es keine klare Abfolge von 
Werten, die zu durchlaufen wäre. Bei Integer-Zahlen ist 
eine.natürliche Folge durch das Wachsen in Einerschrit- 
ten gegeben. Bei Zeichen wird die Reihenfolge der Zei- 
chensatztabelle des Rechners zugrunde gelegt. Später 
werden noch weitere Typen vorgestellt, deren Werte 
ebenfalls per Definition eine bestimmte Reihenfolge.ha- 
ben und dann auch mit einer FOR-Schleife durchlaufen 
werden können. Allgemein heißt ein Typ ein Aufzäh- 
Jungstyp, wenn für seine Werte eine festgelegte Reihen- 
folge, eine Liste oder eine Aufzählung .existiert. Integer 
und Char sind also Aufzählungstypen, Boolean formal 
auch, Real und STRING sind keine. 

Die Anweisungen, die zum DO-Teil der FOR-Anwei- 
sung 'gehören, werden durch BEGIN-END umrahmt. 
Diese BEGIN-END-Klammer darf entfallen, wenn nur ei- 
ne einzelne Anweisung in jedem Schleifendurchgang ab- 
zuarbeiten ist. Die Prozedur VerschiebungUlmZahl könn- 
ten Sie also auch wie folgt schreiben: 


PROCEDURE VerschiebungUmZahl; 


"VAR 


Nummer: Integer; 
BEGIN 
FOR Nummer := 1 TO Zahl DO 


Write (' '); 
END (* von VerschiebungUmZahl *); 


Die FOR-Anweisung schließt hier mit dem Ende der 
ihr zugeordneten, von ihr abhängigen Write-Anweisung. 

Wichtig ist noch: In Turbo-Pascal ab Version 4.0 sowie 
in Quick-Pascal muß die Schleifenkontrollvariable global 
für das gesamte Programm oder lokal in der jeweiligen 
Prozedur vereinbart sein. Wegen ihrer rein lokalen Be- 
deutung sollte sie in der Regel lokal definiert werden. 


Syntaxdiagramme 


Ein kurzes Beispiel ist oft viel besser zu verstehen als die 
genaue theoretische Beschreibung des Aufbaus einer An- 
weisung. Beispiele haben allerdings den Nachteil, daß 
nicht alle möglichen Fälle durch sie abgedeckt werden. Es 
muß zusätzlich eine allgemeine Beschreibung geben, bei 
der Sie im Zweifelsfalle nachschauen können. Außerdem 
muß bei der Entwicklung der Sprache exakt festgelegt 
werden, was erlaubt sein soll und was nicht. In manchen 
Programmiersprachen ist es, ähnlich wie in diesem Buch, 
üblich, diese allgemeine Beschreibung mehr oder weni- 
ger umgangssprachlich zu fassen. Manchmal würde eine 
solche Beschreibung aber lang und unübersichtlich wer- 
den. Unübersichtlichkeit ist der Todfeind eines sicheren 
Programmierens, erst recht des Entwurfs einer zuverläs- 
sigen Programmiersprache. 

Die Informatik hat deshalb noch andere Methoden zur 
knappen und dennoch genauen Beschreibung der zuläs- 
sigen Ausdrücke einer Programmiersprache entwickelt. 
Die in der Informatik wichtigste Methode ist das Syntax- 
diagramm; so genannt, weil mit dem Fachbegriff Syntax 
- nicht nur bei Computersprachen - die Regeln bezeich- 
net werden, wie aus Sprachelementen größere Ausdrücke 
gebildet werden dürfen. 

Ein Syntaxdiagramm ist eine Zeichnung, die aus Ova- 
len für feste Elemente der Sprache, aus rechteckigen Käst- 
chen für zu definierende Ausdrücke und aus gerichteten 
Verbindungslinien zwischen Ovalen und Kästchen be- 
steht. Wenn man entlang den Verbindungslinien fährt, er- 
kennt man, wie die Sprachbestandteile aneinanderge- 
hängt werden dürfen. Alles, was in Ovalen steht, ist 
genäu so auch in das Programm zu schreiben, die Bedeu- 
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Abbildung 5-1: Syntaxdiagrammı „Pascal-Progranım” 
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Abbildung 5-2: Syntaxdiagramm „Programmkopf" 
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Abbildung 5-4: Syntaxdiagramm „FOR-Anweisung” 


tung der Inhalte der rechteckigen Kästchen muß noch zu- 
sätzlich erklärt werden. Sie verstehen sicherlich sofort 
das Diagramm für den prinzipiellen Aufbau eines Pascal- 
Programms (Abb. 5-1, 5. 64). 

Was der Programmkopf ist, kann dann mit einem wei- 
terem Diagramm beschrieben werden (Abb. 5-2, 5. 64). 

Hier bleibt noch Pascal-Name zu erklären, wofür sich 
wieder ein Syntaxdiagramm eignet (Abb. 5-3, S. 64). 

Dieses Diagramm drückt aus, daß ein Pascal-Name mit 
einem Buchstaben zu beginnen hat, und dann eine belie- 
bige Folge von Buchstaben und Ziffern kommt. Fahren 
Sie seinen Linien nach, als wäre es ein Eisenbahn-Strek- 
kennetz! Sie werden beobachten, daß ein solches Dia- 
gramm eine mindestens so präzise Beschreibung darstellt 
wie ein deutscher Satz, bei dem man nicht immer genau 
weiß, was zum Beispiel „Folge” heißen soll. Wie in Pascal 
der Programmkopf aufgebaut ist, könnte nun leicht bis 
auf die elementaren Bausteine zurückgeführt werden. Es 
fehlt nur noch die Festlegung, was alles ein Buchstabe be- 
ziehungsweise eine Ziffer sein kann. Das Syntaxdia- 
gramm der FOR-Anweisung zeigt Abbildung 5-4, S. 64. 


&, 
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Verbundanweisungen 


Wie Sie bei der FOR-Anweisung sehen, umschließt ein 
BEGIN-END-Rahmen nicht immer nur den Anweisungs- 
teil des Hauptprogramms oder einer Prozedur. Mit ihm 
werden auch Anweisungen zu einer Einheit verschnürt, 
um beispielsweise auszudrücken, daß die gebündelte 
Anweisungsreihe insgesamt zum DO gehört. Eine durch 
BEGIN-END geklammerte Anweisungsreihe ist prak- 
tisch zu einer einzelnen Anweisung höherer Ebene zu- 
sammengewachsen und trägt dann auch den Namen Ver- 
bundanweisung. | 

Wie schon erwähnt, hat Pascal keine zeilenorientierte 
Struktur. Grundsätzlich ist die Anordnung der Elemente 
eines Programms dem/der Programmierenden überlas- 
sen. 

Um so mehr sollte man sich Mühe geben, sich ein kla- 
res Schema zur Schreibweise von Programmen zu überle- 
gen und sich halbwegs konsequent daran zu halten, da- 
mit der Text möglichst übersichtlich bleibt. Das wird bei 
der FOR-Anweisung zum ersten Mal wirklich wichtig. 
. Eine Möglichkeit ist, alles, was im selben Abhängigkeits- 


Empfehlung 


grad von einem übergeordneten Element:steht, auf der- 
selben senkrechten Linie beginnen zu lassen: : 


PROCEDURE VerschiebungUmZahl;. 


VAR 
{VAR leitet den Deklaratiönsteil 
für Variablen ein.)} 
Nummer: Integer; | 
{Nummer ist ein Teil der VAR- 
Deklarationen, sollte also 
weiter eingerückt sein. } 


BEGIN 
{Hier fängt der Änweisungsteil 
an. } 

FOR Nummer := 1 TO Zahl DO 

{Die erste Anweisung; das DO und 
das folgende BEGIN leiten die 
Anweisungen ein, .die den Rumpf 
der FOR-Anweisung bilden.} 


BEGIN | 
Write (’ ’); 
{Das ist eine Anweisung im Rumpf 
der FOR-Anweisung.} 
END; 2 
END (* von VerschiebungUmZahl *); 


"Sehen Sie sich unter diesem Gesichtspunkt einmal die 
längeren Programmbeispiele an. 


Umkehrung der Durchlaufrichtung. 


Es gibt auch die Möglichkeit, in der FOR-Anweisung die 
Werte in umgekehrter Reihenfolge - von größeren zu 
kleineren - vorzugeben. Dafür müssen Sie, TO durch 
DOWNTO (ungefähr „abwärts zu“) ersetzen und sinn- 
vollerweise für den Anfangswert einen größeren Wert als 
für den Endwert nehmen. Zum Beispiel zählt die Anwei- 
sung (mit einer Integer-Variablen Zahl); 


FOR Zahl := 1000 DOWNTO 1 DO 
WriteLn (Zahl); _ 


die Zahlen von 1 bis 1000 rückwärts, oder: 


| Zerlegung von STRINGs 


FOR Zeichen := ’z’ DOWNTO ‘a’ DO 
Write (Zeichen); 


buchstabiert das kleine Alphabet von hinten durch. 


Zerlegung von STRINGs 


Zum Schluß diese Kapitels noch eine Anwendung: Eine 
STRING-Größe enthält eine Zeichenkette. Die einzelnen 
Zeichen können direkt angesprochen werden durch den 
Namen der STRING-Variablen, gefolgt von der Nummer 
des Zeichens in eckigen Klammern. Ist zum Beispiel Nr- 
me eineSTRING-Variable und hat es eine Wertzuweisung 
gegeben: 


Name := ’Rupert Röder’ 


so ist 
Name f1) 


das erste Zeichen des STRINGs ’Rupert Röder‘, also 'R’; 
Namıe [2] steht entsprechend für "u" und so weiter. Die Zei- 
chennummer kann auch von einer Variablen repräsen- 
tiert werden. Diese Variable kann zum Beispiel die Num- 
mern vom ersten bis zum letzten Zeichen durchlaufen. 
Damit dies geht, müssen Sie allerdings wissen, welche Length () 

Nummer das letzte Zeichen eines STRINGs hat. Dafür 
gibt es in Turbo-Pascal einen eigenen Ausdruck: Length 
(Name). Length gibt die Länge des STRINGs Name an, das 
heißt, Length enthält die Zahlenangabe, aus wieviel Zei- 
chen der STRING besteht. Length (Name) läßt sich des- 
halb-wie eine Zahl verwenden. Zum Beispiel würde die 
Anweisung: 


Write (Length (Name)) 


die Zahl der Zeichen von Name auf dem Bildschirm aus- 
geben. Und so können Sie Length (Name) auch als End- 
wert einer FOR-Anweisung benutzen. Dadurch erreichen 
Sie, daß alle Zeichen eines STRINGs vom ersten bis zum 
letzten erfaßt werden. Wenn i eine Integer-Variable ist, so 
bewirkt: 


.4q v 4 
FOR i := 1 TO Length (Name) DO 
Write (Name [i]); 


daß nacheinander das erste, das zweite ... (allgemein: das 
i-te) Zeichen bis zum letzten Zeichen des STRINGs Name 
auf dem Bildschirm erscheint (es wird in diesem Zusam- 
menhang von einem Index gesprochen und daher gern 
die Abkürzung 1 gewählt). Die Anweisung bedeutet also 
genau das gleiche wie: | 


Write (Name) 


Wenn man den STRING auflöst, kann man ihn auch 
verändern, zum Beispiel ihngesperrtoder ge-s-t-r-i- 
c-h-e-I-t ausgeben: = 


PROGRAM Gesperrt_Gestrichelt; 


USES crt, printer; 


VAR 
Name : STRING; 
i  : Integer; 


BEGIN (* von Hauptprogramm *) 
Name := ’Rupert Röder’; 
ClrScr; a 
FOR i := 1 TO Length (Name) DO 
Write (Name [i), ° '); 
GoToXY (1,2); 
Write (Name [1]); 
FOR i := 2 TO Length (Name) DO 
Write (’-’, Name (i)); 
END. 


Können Sie sich erklären, warum in der letzten FOR- 
Anweisung die Ausgabe des ersten Buchstabens heraus- 
genommen werden muß? 


Aufgaben 


1. Schauen Sie sich Ihre bisher geschriebenen Program" 
me noch einmal daraufhin an, ob Sie den Programmtext 
übersichtlich und entsprechend der logischen Gliede- 
rung eingerückt haben. Korrigieren Sie eventuell. 

2. Schreiben sie ein Programm, das mittels einer Zähl- 
schleife eine größere Zahl von identischen Adreßaufkle- 
bern oder Visitenkarten auf dem Bildschirm ausgibt. 


Üm—m—m——— Gleis a 
- [| - Gleis b 
Ku m Gleis c 





Abbild ung 5-5: Gleisplan des Kleinbahnhofs Tuttlingen 


3. Fügen Sie eine oder mehrere Schwalben (zum Bei- 
spiel mit der geschweiften Klammer darzustellen) zu Ih- 
rem Haus hinzu und lassen Sie sie langsam am Himmel 
entlangziehen. 

4. Und jetzt ein Leckerbissen für die Freunde und 
Freundinnen der Eisenbahn und des Reisens: Sie sehen 
hier (Abb. 5-5) den Gleisplan des Kleinbahnhofs Tuttlin- 
gen. 

Es ist nicht schwierig, ihn auf den Bildschirm zu brin- 
gen. Von links kommt auf Gleis c gerade eine Lok ange- 
fahren, symbolisiert durch das Sternchen. Lassen Sie sie 
auf dem Bildschirm über das Gleis nach rechts wandern. 
Verwenden Sie die Delay-Anweisung, damit die Bewe- 
gung effektvoller vonstatten geht. 

5. Schreiben Sie ein Programm, das einen STRING 
g’e*s*t*e*r*n*t ausgibt. 

5.1 Schreiben Sie ein Programm, das einen STRING fol- 
gendermaßen schreibt: 

c 


nv. nm oh “" 


5.2 Schreiben Sie ein Programm, das einen STRING 
sträwkcür (rückwärts) Zeigt. 


Programmierung mit den 
bisherigen Mitteln 


6 Dialogprogramme 


Das Palindrom-Beispiel - Der Eingabedialog - 
Masken - Das Programmierschema E-V-A - 
Ausgabe auf dem Drucker - Aufgaben 


„Hallo, hier ist Ihr Computer und tut, als ob” - Bei vielen 
Computeranwendungen scheint das Gerät mit dem Be- 
nutzer oder der Benutzerin zu sprechen. „Er“ stellt Fra- 
gen, erwartet eine Aussage, reagiert störrisch, wenn man 
etwas Unpassendes macht, antwortet ansonsten mehr 
oder weniger entsprechend der Eingabe. Ein Programm, 
das den Computer zu diesem Verhalten bringt, wird ein 
Dialogprogramm genannt. 


Das Palindrom-Beispiel 


Palindrom heißt ein Wort oder ein Satz, das oder.der vor- . 
wärts wie rückwärts gelesen gleich ist. Zum Beispiel sind 
„Anna“ und „Otto“ einfache Palindrome. Entsprechende 
Palindromsätze zu bauen, ist schon schwieriger. Der be- 
kannteste Palindromsatz lautet: „Ein Neger mit Gazelle 
zagt im Regen nie.” Beider Umkehrung müssen die Leer- 
stellen zwischen den Wörtern und die Groß- und Klein- 
schreibung neu gesetzt werden. ES wird auch von Sinn- 
Palindromen gesprochen, wenn die Umkehrung in einem 
inhaltlichen Bezug zum Originalwort steht: Roma - 
Amor könnte ein Beispiel sein. Ein Programm soll dabei 
helfen, Wörter oder längere STRINGs auf ihre Palindrom- 
eigenschaften zu testen. 

Eine Prozedur Umkehrung ist mit den Mitteln des letz- 
ten Kapitels schnell geschrieben. Dabei soll Textstueck ei- 
ne Variable des Hauptprogramms sein, die den rückwärts 
auszugebenden STRING enthält. Ein Programm, das die 
Prozedur verwendet, könnte etwa wie folgt aussehen: 


PROGRAM PalindromTest; 
USES crt, printer; VAR 
Textstueck: STRING [200]; 


PROCEDURE Umkehrung; 
VAR 


i: Integer; 


BEGIN 
FOR i := Length (Textstueck) DOWNTO 1 
DO 
BEGIN 
Write (Textstueck [i]); 
END; 


END (* von Procedure-Umkehrung *); 


BEGIN (* von Hauptprogramm *) 
ClrScr; wer 
Textstueck := ’Reliefpfeiler’; 
WriteLn (’Vorwärte: ’); | 
WriteLn (Textstueck); 

WriteLln; 
WriteLn (’Rückwärts:'); 
Umkehrung; 
ReadLn; 
END. 


In dieser Art wurden bisher alle Programme geschrie- 
ben, aber hier wird die Starrheit des Programms unprak- 
tisch. Für jedes neue Wort, das getestet werden soll, muß 
im Programmtext die Wertzuweisung an Textstueck geän- 
dert werden. Viel hübscher wäre, wenn das Programm 
fest bleiben und man beim Ablauf erst bestimmen könn- 
te, welchen Wert die Variablen annehmen sollen. Genau 
dafür gibt es eine eigene Sorte von Anweisungen: die Ein- 
gabeanweisungen. In Pascal sind das die EINEN 
Read beziehungsweise RerdLn. 


Funktionsweise von Read und ReadLn 


Die Pascal-Wörter Read beziehungsweise ReadLn (read 
line) stehen für „Lesen” beziehungsweise „Lesen bis Zei- 
lenende”. Gemeint ist das Folgende: Bei einer Read- oder 
ReadLn-Anweisung stoppt der Programmablauf, bis der 
Computer von der Tastatur als Eingabegerät irgendetwas 
„gelesen“ und es in seinen Speicher genommen hat. Das 
Gelesene schreibt der Computer dabei in eine Variable, 
die in runden Klammern hinter Read beziehungsweise 
ReadLn stehen muß. Zum Beispiel kommen durch: 


ee ° ev. 


ReadiLn (Textstueck) 


Fehlerhafte 
Zahleneingaben 


Unterschied von Read 
und ReadlLn 


die eingetippten Zeichen von der Tastatur in die Variable 
Textstueck. Genauso können auch Zahlen-Variablen ein- 
gelesen werden. Und mit der folgenden Programmzeile 
wird eine eingegebene Zahl in die Variable Nummer über- 
tragen und steht dann dort zur Verfügung: 


ReadLn {Nummer) 


Passen Sie auf, daß Sie sich nicht vertippen: Ist Nummer 
als Integer deklariert, so stürzt das Programm mit einer 
Fehlermeldung ab, wenn etwas anderes als eine ganze 
Zahl eingetippt wird. Besonders aufpassen müssen Sie 
bei Real{srößen, weil eine Dezimalzahl nur mit Dezimal- 
punkt, nicht etwa mit Komma, geschrieben werden darf. 

In Turbo-Pascal sind in der einfachsten Benutzungsart 
alle Eingaben, sowohl bei Read, als auch bei ReadI.n mit 
der Return-Taste abzuschließen. Der Unterschied zwi- 
schen den Anweisungen besteht darin, daß bei ReadLn 
auf dem Bildschirm nach dem Ende der Eingabe in die 
nächste Zeile gesprungen wird, bei Read nicht. Der Son- 
derfall einer alleinstehenden ReadLn-Anweisung ohne 
Variable wurde schon erwähnt: Dabei stoppt das Pro- 
gramm solange, bis Return gedrückt wird. 


Der Eingabedialog 


Die Anweisung 
ReadLn (Textstueck); 


allein ergibt noch kein vernünftiges Programm, lediglich 
der Cursor blinkt, ohne daß eine konkrete Eingabeanfor- 
derung erscheint. Grundsätzlich sollte das Programm 
mitteilen, welche (Art von) Eingabe erwartet wird. Dafür 
eignet sich ein kleiner Dialog der oben angedeuteten Art. 
Die Prozedur Eingabedialog wird folgendermaßen ge- 
schrieben: 


PROCEDURE Eingabedialog; 


BEGIN 
Writeln; 


WriteiLn (’Das Programm Palindrom hilft, STRINGs auf’, 
’Palindromeigenschaften zu testen.’); 


WriteLn (’:::::::: 


.e 0 1.2 0 2 9 8 90 9 1 0 1 1 1 2 01 0 8 LT Te 8 8 8 5 8 8 9 9 CS 


WriteLn; 


WriteLn (’Geben Sie bitte das zu testende Wort ein:’); 


ReadLn (Textstueck); 
WriteLn; 
WriteLln; 

END (* von Eingabedialog *); 


Schreiben Sie diese Prozedur in das Programm Palın- 
dromTest, und ersetzen Sie die Wertzuweisung Textstueck 
durch einen Aufruf von Eingabedialog. Der Hauptpro- 
grammteil sieht dann folgendermaßen aus: 


BEGIN (* Hauptprogrammteil *) 
ClrScr; ' 
Eingabedialog; 
WriteLn (’Vorwärts:’); 
WriteLn (Textstueck); 
WriteLln; 
WriteLn (’Rückwärts:'); 
Umkehrung; 

END. 


Jetzt haben Sie ein praktisches Programm, mit dem Sie 
experimentieren können, in dem Sie es einfach immer 
wieder neu ablaufen lassen. 


Masken 


Wenn ein Programm eine Serie etwas komplizierterer 
Eingaben benötigt, kann es sich empfehlen, eine Bild- 
schirmmaske zu programmieren. In der einfachsteri Form 
heißt dies, daß die Reihe der Fragen, die der Computer zu 
einer Aufgabe stellen soll, nicht nacheinander auftau- 
chen, sondern nach Art eines Formulars gleichzeitig auf 
den Bildschirm kommt. Bei der Beantwortung läßt sich 
dadurch besser Zusammenhang und Sinn der Eingabe er- 
kennen. 

Betrachten Sie als Beispiel eine Abwandlung des Stem- 
pels: Ein Namensschildchen mit Angabe des Herkunftsor- 
tes (die Prozedur Eingaben, in der eine Maske zur Daten- 
erfassung verwendet wird, ist noch ausgeklammert und 
wird unten nachgeliefert): 


Beispiel 
„Namensschildchen” 


Dialogprogramme | > 


PROGRAM Namensschildchen; 


i 4 
USES crt, printer; 


3 


CONST 
Anfangszeile = 8; 
Anfangsspalte = 20; 
VAR 
Vorname, Name, Ort : STRING (80); 


GesamtlaengeUmrahmterText : Integer; 


PROCEDURE Eingaben; {Eingabemaske für Vorname, Name und Ort} 
BEGIN 


8 
END (* von Eingaben *); 


PROCEDURE StrichMalen; 


VAR 
1: Integer; 
BEGIN 
FOR i := 1 TO GesamtlaengeUmrahmterText DO 


Write ('-’); 
END (* von StrichMalen *); 


PROCEDURE SchildMalen; 

BEGIN {(* von SchildMalen *) 

 GesamtlaengeUmrahmterText 
:= Length (Vorname) + 1 + Length (Name) + 2 + Length (Ort); 
GoToXY (Anfangsspalte, Anfangszeile); 
Write (’'T7'); 
StrichMalen; 
Write (7°); 
GoToXY (Anfangsspalte, Anfangszeile + 1); 


Write (I 9; 
Write (Vorname, ' ', Name, ’, ', Ort); 
Write (' 1° 


GoToXY ( Anfangsspalte, Anfangszeile + 2) ; 
Write (’\ı__%; 
StrichMalen; 
Write (’_ |’); 
END (* von SchildMalen *); 


BEGIN (* Namensschildchen *)- 
ClrScr; 
Eingaben; 
SchildMalen; 

END. 


Das Programm setzt einen Rahmen um den Namen 
und die Ortsangabe entsprechend den jeweiligen Längen 
dieser Angaben. Bevor es funktioniert, muß man die Pro- 
zedur Eingaben ausfüllen. 


Eine Maskenprozedur 


Die Eingabe von Namen und Orten sollen in einer Maske 
in einfacher Form erfolgen. Dazu muß man sich zunächst 
überlegen, wie der Bildschirm (das heißt sozusagen das 
Eingabeformular) aufgebaut sein soll, etwa so: 






tn ne a a nn — - 


Angaben für Naihensschildchen 


Vorname a e 
Nachname 


Herkunftsort: . 
Br ME 
id 








Abbildung 6-1: Maske zur Datenerfassung für das Programm 
Namensschildchen 





Mit Hilfe von GoToXY-Anweisungen ist zunächst diese 
Maske auf. dem Bildschirm darzustellen. Anschließend 
werden die einzelnen Positionen, an denen die Eingaben 
geschrieben werden, angesprungen. Das kann zum Bei- 
spiel so aussehen: 


PROCEDURE Eingaben; 


CONST 
Anfangszeile = 2; 
"Anfangsspalte = 4; 
Textbreite = 12; 
BEGIN 

ClrScr; 


GoToXY (Anfangsspalte, Anfangszeile); 
Write ('Angaben für Namensschildchen’)}; 
GoToXY (Anfangsspalte, Anfangszeile+l); 
Write I SsS3535323=25 5555232 sE2 328252222’); 
GoToXY (Anfangsspalte, Anfangszeile+?); 
Write ('Vorname’); 

GoToXY (Anfangsspalte, Anfangszeile+&); 
Write (’Nachname’); 

GoToXY (Anfangsspalte, Anfangszeile+5); 
Write (’Herkunftsort’); 

GoToXY (Anfangsspalte+Textbreite, Anfangszeile+3); 


Dialogprogramme | 


Write (’2 9); 


ReadLn (Vorname); 


GoToXY (Anfangsspalte+Textbreite, Anfangszeile+4); 
Write (’: '); 


ReadLn (Name); 


GoOToXY (Anfangsspalte+Textbreite, Anfangszeile+5); 
Write (’: ’); 
ReadLn (Ort); 


ClrScr; 


END (* von Eingaben *); 


Verdeckung äußerer 


Es ist übrigens kein Fehler, sondern durchaus zulässig 


Variablen durch und hier auch vernünftig, daß innerhalb der Prozedur 


prozedurinterne 


PROGRAM SchildAmRand; 


USES crt, printer; 


CONST 
Anfangszeile 
Anfangsspalte 


dieselben Namen anders verwendet werden als außer- 
halb. Wenn zum Beispiel Anfangszeile in der Prozedur neu 
definiert wird, so „vergißt” das Programm einfach die Be- 
deutung, die der Name außerhalb hatte, solange die Pro- 
zedur arbeitet. Nach Verlassen der Prozedur wird die ur- 
sprüngliche Bedeutung wieder sichtbar. 


Das Programmierschema E-V-A 


Wenn zwischen dem Eingabeteil eines Programmes und 
dem Zeigen eines Ergebnisses (im Beispiel das fertige 
Schildchen) ein Berechnungsteil stünde, so hätten Sie ein 
klassisch aufgebautes Programm. Nach dem klassischen 
Schema durchläuft ein Programm nacheinander die 
Schritte Eingabe-Verarbeitung-Ausgabe (das sogenannte 
E-V-A-Schema). Wenn zum Beispiel die folgende Varian- 
te des Namensschildprogramms erstellt werden soll, bei 
welcher der umrahmte Name am rechten Rand des 
Schirms erscheint, so kann es zur Übersichtlichkeit beitra- 
gen, wenn von der Ausgabeprozedur SchildMalen die Be- 
rechnung der Lage und der Größe des Kastens abgetrennt 
wird (außerdem ist GesamtlaengellmrahmterText jetzt als 
Knstenlaenge bezeichnet): 


{Muß erst ab den Versionen Turbo-Pascal 4.0 
eingefügt werden.} 


8; 
20; 


VAR 


' Vorname, Name, Ort STRING [80]; 
Kastenlaenge Integer; | 
AbstandVomLinkenBildrand Integer; 

Eingaben; | 
CONST 

Anfangszeile = 2; 
Anfangsspalte = 4; 
Textbreite = 12; 
BEGIN 
ClrScr; 
GoOToXY (Anfangsspalte, Anfangszeile); - 
‚Write (’Angaben für. Namensschildchen’).; 
GoToXY (Anfangsspalte,, Anfangszeile+l); 
‚Write (?====================5========'); 
GoToXY (Anfangsspalte, :Anfangszeile+3); 
Write (’Vorname’);- 
GoToXY (Anfangsspalte, Anfangszeile+4); 
Write (’Nachname’); 
GoToXY {(Anfangsspalte, Anfangszeile+5); 
Write (’Herkunftsort’ I; 
GoToXY (Anfangsspalte+Textbreite, "Anfangszeile+3); 
Write (’: '); : 
ReadLn (Vorname); - 
: GoOToXY (Anfangsspalte+Textbreite,. Anfangszeile+4); 
Write (’': '); 
ReaädLn (Name); 
GOToXY Ant anoBepatreirerebräige, "Anfangszeile+5); 
. Write ('’: '); 
ReadLn (Ort); 
ClrScr; 


"END (* von Eingaben *); 


nn Berechnungen; 
'BEGIN 

Kastenlaenge 

:= Length (Vorname) + 1 + Length (name) + 2 + Length (Ort); 

AbstandVomLinkenBildrand := 80 - (Kastenlaenge + 6); 
{6 Zeichen zusätzlich sind von der 
Bildschirmbreite ss ze enen) für En BAnmen 
abzuziehen. } | 


END (* von Berechnungen *); 


PROCEDURE StrichMalen; 
VAR 


| Dialogprogramme | 


i: Integer; 


BEGIN 
FOR i := 1 TO Kastenlaenge DO 


Write ('-'); 


END (* von StrichMalen *); 


PROCEDURE SchildMalen; 


BEGIN (* SchildMalen *) 


END 


{Wie bisher} 


(* von SchildMalen *); 


BEGIN (* von SchildAmRand *) 
ClrScr; 
Eingaben; 
Berechnungen; 
SchildMalen; 


END. 


Umlenken des Write 
zum Drucker 


Ausgabe auf dem Drucker 


Mit ein paar Änderungen kann man Sie sich die Namens- 
schilder nicht nur per Hardcopy ausdrucken lassen, son- 
dern direkt auf einen angeschlossenen Drucker schicken: 
Das ist bei diesem Programm nicht schwierig, weil die 
GoToXY-Anweisungen in der Ausgabe-Prozedür:Schild- 
Malen (anders als bei den Haus- und Stempelbeispielen) 
nur zum Einrücken dienen, aber nicht für € einen Sprung 
nach oben verwendet werden: 

Das Wichtigste ist, daß die Write- EREI quasi auf 
den Drucker umgelenkt wird, wenn in der Klammer hin- 
ter Write als erstes eine entsprechende Angabe (gefolgt 
von einem Komma) steht. 

Bis Turbo-Pascal 3.x genügt es, in jedes Write die Be- 
zeichnung LST einzufügen. In der USES-Angabe hinter 
dem Programmkopf wird die Einheit Printer eingefügt, 
damit die Umleitung auch ab Turbo-Pascal 4.0 sowie in 
Quick-Pascal funktioniert. Ähnlich schiebt WriteLn auf 
dem Drucker das Papier eine Zeile weiter, statt den Cur- . 
sor auf dem Schirm zum Anfang der folgenden Zeile zu 
dirigieren, wenn in Klammern das Ziel LST genannt 
wird. Die GoToXY-Anweisungen haben selber keine Wir- 
kung auf den Drucker. Sie können entfernt werden. Die 
Papierbewegung wird allein durch WriteLn (LST) bezie- 
hungsweise Write (LST, {...}) gesteuert: 


PROCEDURE StrichMalen; 
VAR 
ji: Integer; 
BEGIN 
FOR i := 1 TO Kastenlaenge DO 
Write ({LST, ’-’); 
END (* von StrichMalen *); 


PROCEDURE SchildMalen; 
BEGIN (* von SchildMalen *) 

WriteLn (LST)}; 

Writeln (LST); 

Write (LST, 'T'); 
StrichMalen; 

Write (LST, 770)5 
WriteLn (LST); 


Write {LST, | 5 
Write (LST, Vorname, ' ', Name, ’, ’, Ort); 
Write (LAST, '° 19; 


WriteLn ({LST) 
Write {LST, "ze: 
StrichMalen; 
Write (LST, '__)°); 
WriteLln (LST); 

END (* von SchildMalen *); 


no. 


Das Einrücken läßt sich mit einer Extra-Prozedur auch 
auf dem Drucker erreichen (die am besten als weitere Un- 
terprozedur von Schildmalen eingefügt und für jede Zeile 
des Schildes aufgerufen wird): 


PROCEDURE Einruecken; 


VAR 
i: Integer; 
BEGIN 
FOR i := 1 TO AbstandVomLinkenBildrand 
DO 
Write (LST, ’ ’); 


END (* von Einruecken *); 


Man kann auch den Trick des formatierten Leerstrings 
verwenden (der auch auf dem Drucker funktioniert). Die 
folgende Programmzeile hat dieselbe Wirkung wie der- 
Aufruf von Einruecken: 


Write (LST, ’': AbstandVomLinkenBildrand); 


Im nächsten Kapitel erfahren Sie, wie in Pascal-Pro- 
grammen Rechenausdrücke gebildet werden. Dann wird 
sich das Schildchen auch in die Mitte des Bildschirmes 
oder des Papiers positionieren lassen. 


Aufgaben 


1. Machen Sie Ihr Programm, das ein Haus zeichnet, zu 
einem Dialogprogramm. Sie können bei jedem Pro- 
grammlauf bestimmen, wo die Tür sitzt, aus welchen Zei- 
chen ein Fensterrahmen besteht, aus welchen Zeichen die 
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Abbildung 6-2: Ein Haus als „Dialogprogramm“ 


Fensterfüllung aufgebaut sein soll und en die Vorhänge 
geöffnet oder geschlossen sind. 

2. Erweitern Sie das Bahnhofprogramm um eine Einga- 
bemöglichkeit für die Geschwindigkeit der-Lokomotive 
(beziehungsweise für den Wert der in die Delay-Anwei- 
sung eingesetzten Verzögerungszeit). 

3. Schreiben Sie ein Programm, das einen Lieferschein 
oder eine Rechnung auf dem Bildschirm (eventuell auch 
auf dem Drucker) gestaltet. Überlegen Sie, welche Daten 
Sie als Eingaben benötigen und was der Computer dann 
errechnen muß. Der gestaltete Vordruck kann zum Bei- 
spiel so aussehen: 


Fe mo o[o oo (Tu —{o]eT Tr — 


— on m m ne a m 


Rechnung 


wir lieferten: 


ut em 


Einzelpreis DM 25.90 
Gesamtpreis 
Porto & Verp. 


Rechnungsbetrag 


Zahlbar sofort auf Konto-Nr.: 6900, 
Kreissparkasse Nebenacker, BLZ 500 300 


Gerichtsstand ist Nebenacker. 


| 


We: rn a er ee 


Abbildung 6- 3: ne 


2 Ex. Simmel, Maria: Mit Tränen und Klauen. 


Buchversand Schmöker 
Postfach 0123 
1011 Unterdorf 


DM 51.80 
DM 3.50 


DM 55.30 


0i. 


Zahlenwelten 


7 Rechnen mit.dem 
Computer 


Addieren, Subtrahieren, Multiplizieren - Dividieren 
mit / - Die ganzzahlige Division mit DIV und mo - 
Real und Integer - Zahlen und Zeichen - | 
Ein neues Movie - Aufgaben 
Der Computer ist, wie Sie schon bemerkt haben, - trotz 
seines Namens - nicht einfach ein „Rechner“. So wie die 
Mathematik nicht nur das Rechnen lehrt, sondern 'sich 
allgemein mit formalen, regelhaften Systernen (oder 
„Welten”) beschäftigt, so dient der Computer dazu, (Zei- 
chen-)Operationen in ganz unterschiedlichen Zusam- 
menhängen und Formen auszuführen und dadurch } jene 
eigene „Welten“ zu schaffen. 

Für viele Zwecke bildet dennoch in der Mathematik 
wie auf dem Computer das Rechnen mit Zahlen bzw. mit 
symbolischen Größen (das heißt, mit „Variablen”) ein 
wichtiges Hilfsmittel. Wie dies in Pascal funktioniert, ha- 
ben Sie schon gesehen: Von Anfang an haben Sie mit Zah- 
len und symbolischen Konstanten, später dann mit Vari- 
ablen gearbeitet und den Computer das Ergebnis von 
Rechenausdrücken bestimmen lassen. Dabei lernten Sie 
bereits die Unterscheidung zwischen den Haupttypen 
kennen, die es in Pascal für Zahlen ’(-Variable) gibt: Inte- 
ger für die ganzen Zahlen (genaugenommen nur für die 
zwischen -32768 und +32767) und Real für Dezimalzah- 
len. Im folgenden: soll das bereits Gesagte ergänzt und Sy- 
stematisch dargestellt: ‚werden, wie Sie den. ‚ompufer 
richtig rechnen lassen. 


Addieren, Subtrahieren, 
Multiplizieren 


Zahlen-Konstanten (zu denen auch die Zahlen selbst ge- 
hören) und Zahlen-Variableri können addiert, subtrahiert 
und auch multipliziert werden. Die Rechenöperationen 
werden genauso wie üblich geschrieben, nur für die Mul- 
tiplikation dient „*" als „mal“. Zum Beispiel können fol- 


| Addieren, Subtrahieren 


gende Rechenausdrücke oder „arithmetische Ausdrük- 
ke”) gebildet werden: 


Anfangszeile + 1 
Endzeile - 3 
2 * Hoehe - 1 


Dabei gilt in Pascal wie in der Mathematik die Regel „Punkt vor Strich” 
Punktrechnung geht vor Strichrechnung. Operationen 
mit Punktrechnungen (Multiplikation und Division) sind 
vor den Strichrechnungen Addition und Subtraktion aus- 
zuführen. Oben ist zum Beispiel zuerst der Wert von Hoe- 
he zu verdoppeln und vom Ergebnis dieser Rechnung 1 
abzuziehen. 
Es können auch eine praktisch unbegrenzte Anzahl Klammern 
von Klammern benutzt werden, um die Reihenfolge von 
Rechenoperationen zu bezeichnen. Zum Beispiel ist: 


{2 * Hoehe) - 1 


dasselbe wie der oben angeführte Ausdruck, 
aber etwas anderes als: 


2 * (Hoehe - 1) 
ı0 


2»Höhe 
2“Höhe -1 


(Höhe-1)»2 





OÖ —,— — 


= Höhe =. ; 
Abbildung 7-1: Grafischer Vergleich von 2 * Hoehe - 1 und 
2 * (Hoehe-1) 


Bei Addition und Multiplikation ist die Reihenfolge Rechenprobleme 
der beteiligten Größen theoretisch gleichgültig. Da der auf dem Computer 
Computer nur mit begrenzter Stellenzahl arbeitet, kön- 

‚nen sich allerdings je nachdem, was zuerst gerechnet 
wird, unterschiedlich große Rundungsfehler einschlei- 
chen. 


Merkzettel 


Merkzettel 


Die drei Öperationen Addition, Subtraktion und Multi- 
plikation haben gemeinsam, daß sie, auf Integer-Größen 
angewandt, auch wieder Integer-Größen ergeben, so wie 
in der Mathematik Summe, Differenz und Produkt von 
ganzen Zahlen wieder ganzzahlig sind. Gemischte Ope- 
rationen von Integer- und Real-Größen sind zulässig, 
Aber: 





Sobald in einem Rechenausdruck eine der beteiligten | 
Größen den Typ Real hat, ist der ganze Ausdruck vom | 
Typ Real. Eine Variable, an die das Ergebnis zugewie- | 
sen wird, muß entsprechend deklariert sein. | 


m en __m_ 





Ist zum Beispiel Hoelhe eine Real-Variable und soll die 
Wertzuweisung: 


Breite := 2 * Hoehe - 1 


in einem Programm vorkommen, so muß auch Breite 
vom Typ Real sein. So etwas vergißt sich leicht. Der Com- 
piler weist in Pascal dann mit der Fehlermeldung einer 
Typen-Unverträglichkeit darauf hin. 


Dividieren mit / 


Warum ist die Division etwas Schwierigeres als die ande- 
ren Rechenarten? In erster Linie liegt es daran, daß die 
Division aus dem Bereich der ganzen Zahlen herausfüh- 
ren kann. Schon 1 geteilt durch 2 ergibt 0.5, also keine 
ganze Zahl, obwohl 1 und 2 ganzzahlig sind. In Pascal 
wird diese Form der Division mit dem Schrägstrich „/” 
geschrieben (beispielsweise Ergebnis := 1/2). „1/ 2” bedeu- 
tet nicht „einhalb” gleich 0.5, sondern ist der noch nicht 
ausgerechnete Divisionsausdruck „1 geteilt durch 2”. Es 
gilt: 


. mu le 
Jeder Rechenausdruck, in dem eine Division mit / vor- ı 
kommt, ist vom  TypR Real. ; | 


_— 1 1 —_ . wen (u are nn En es v —— EEE Di er > 





Eine Variable wie Ergebnis, der ein solcher Ausdruck 
zugewiesen. wird, muß auch dann als Real vereinbart 
sein, wenn rechts zufällig eine aufgehende Division wie 
15/3 steht. 


Auch bei der Division ist.die Regel „Punktrechnung 
geht vor Strichrechnung” zu beachten. Nach der Zuwei- 
sung: 


Ergebnis := 30 / 10 +5 


enthält Ergebnis den Wert 8=3+5 (und nichtetwa2 = 30 
/ 15) und bei: 


Ergebnis := 6 + 24 / 4 


kommt 12=6+6 und keinesfalls 7 De 30/4 heraus. 
Dabei bezieht sich der Schrägstrich (wie das Multipli- 
kationszeichen) nur auf die direkt folgende Größe: 


Ergebnis := 25/5 * 2 


hat den Wert 10 =25 : (1/5) - 2 und nicht etwa 2.5 =25 / 
(5 - 2). Es muß also mit Klammern gearbeitet werden, 
wenn durch das Produkt oder die Summe von Größen ge- 
teilt werden soll: 


Ergebnis := 12 / (3 + 5) 
gibt 12/8 gleich 1.5, während 
Ergebnis := 12 / 3 +5 


den Wert 4 + 5 gleich 9 hat. 


Die ganzzahlige Division mit 
DIV und MOD 


Sie werden aber überrascht feststellen, daß Sie für viele 
Fragestellungen die Division, die mit / geschrieben wird 
und auf Dezimalzahlen führt, gar’ nicht brauchen. Man 
arbeitet sehr oft mit etwas, das in der‘ Schüle schon vor 
deri Dezimalzahlen gelehrt wurde Und zu vielen Zwek- 
ken benötigt wird: 

In eine Kassettenbox passen 15 Kassetten. Wieviele Bo- 
xen brauchen Sie, wenn Sie 83 Kassetten unterbringen 
wollen? Nicht 5.533, wie ein Taschenrechner sagt. Denn 
es gibt zwar 0.533 Liter oder 0.533 Meter, aber keine hal- 
ben Boxen. Sondern Sie fragen, wie oft paßt die 15-Kasset- 
ten-Einheit ganz in die 83 hinein? Und was ist mit den 
übrigbleibenden Kassetten zutun?‘ .  ır « ymef: 

Die Rechenweise, die in der Grundschule als „Division 
mit Rest” den Schülern vermittelt wird, lautet etwa: 83 


Division mit Rest 


DIV und MOD 


Test: Aufgehen 
der Division 


PROGRAM Stueckelung; 
USES crt, printer; 


VAR 
Gesamtbetrag 
Verbleibend 


geteilt durch 15 ergibt 5 Rest 8. Sie beriötigen also erst ein- 
mal fünf Boxen, acht einzelne Kassetten bleiben übrig. 
Was man mit diesem Rest anfängt, muß extra überlegt 
werden (man könnte sie unverpackt lassen, eine kleinere 
Schachtel suchen oder auch eine große halb leer lassen.) 
Die Aufgabe hat eigentlich zwei Ergebnisse, die 5 und 
die 8. Um den ersten Wert herauszufinden (wie oft die 


eine Zahl ganz in die andere paßt), gibt es in Pascal die 
Operation DIV. Den Rest bei dieser ganzzahligen Divi- 


sion ermitteln Sie mit der Operation MOD: 83 DIV 15 hat 
den Wert 5; 83 MOD 15 ergibt dagegen 8. Diese Operatio- 
nen sind nur für Integer-Größen möglich, der Ausdruck 
bleibt ganzzahlig. Mittels DIV und MOD können Sie in 
Pascal dividieren, ohne dabei den Integer-Zahlenbereich 
zu verlassen, ei 

DIV und MOD gelten als Punktrechnungen wie Multi- 
plikation und Division. Auch bezüglich der Bindung des 
nachfolgenden Divisors werden sie wie die Division be- 
handelt. 

Eine besonders wichtige Anwendung von MOD ist die 
Frage, ob eine Division aufgeht. Wissen Sie zum Beispiel, 
welche Jahre (außer vollen Jahrhunderten) Schaltjahre 
sind, das heißt einen 29. Februar haben? Die Jahreszahl 
muß durch 4 teilbar sein. Mit MOD läßt sich das so aus- 
drücken, daß der folgende Ausdruck 0 ergeben muß: 


Jahreszahl MOD 4 


Oft können Sie auch den Rest der Division als Aus- 
gangsbasis für eine neue Rechnung nehmen. 


Beispiel 


Betrachten Sie ein kleines Beispiel: Ein Programm soll für 
einen eingegebenen Betrag (vorläufig in vollen DM) er- 
mitteln, in welchen möglichst großen Scheinen und.Mün- 
zen der Betrag bar ausgezahlt werden kann. Was ist zu 
rechnen? Der Betrag dividiert durch 1000 ergibt die Zahl 
der benötigten Tausendmarkscheine, .der Rest ist weiter 
zu bearbeiten, das heißt durch 500 zu teilen und so. weiter: 


: Integer; 
: Integer; 


AnzahlTausender, AnzahlFuenfhunderter, 
AnzahlHunderter, AnzahlFuenfziger, 
AnzahlZwanziger, AnzahlZehner, 

AnzahlFuenfer, AnzahlZweier, 
AnzahlEinMarkstuecke : Integer; 


PROCEDURE ProgrammErklaeren; 
BEGIN 
ClrScr; 
WriteLn; 
WriteLn (’Das Programm ermittelt die Anzahl der Münzen’); 
WriteLn (’und Geldscheine für einen vollen DM-Betrag.’); 
Writeln; 


WriteLln; 
WriteLn; 
END; 


PROCEDURE Eingabe; 
BEGIN 
WriteLn (’Für welchen vollen DM-Betrag wollen Sie eine‘, 
’Stückelung ermitteln?’)}; 
Write ('"Betrag: ’); 
ReadLn (Gesamtbetrag); 
END (*von Eingabe *); 


PROCEDURE Berechnungen; 


BEGIN 
AnzahlTausender := Gesamtbetrag DIV 1000; 
Verbleibend := Gesamtbetrag MOD 1000; 
AnzahlFuenfhunderter := Verbleibend DIV 500; 
Verbleibend := Verbleibend MOD 500; 
AnzahlHunderter := Verbleibend DIV 100; 
Verbleibend := Verbleibend MOD 100; 
AnzahlFuenfziger := Verbleibend DIV 50; 
verbleibend := Verbleibend MOD 50; 
AnzahlZwanziger = Verbleibend DIV 20; 

" Verbleibend := Verbleibend MOD 20; 
AnzahlZehner := Verbleibend DIV 10; 
Verbleibend := Verbleibend MOD 10; 
AnzahlZweier := Verbleibend DIV 2; 


AnzahlEinMarkStuecke 


:= Verbleibend MOD 2; 
END (*von Berechnungen*); 


PROCEDURE Anzeige; 
- BEGIN 


Rechnen | 


E 


Writeln; 


WriteLn 
WriteLn 
WriteLn 
WriteLn 
WriteLn 
WriteLln 
WriteLn 
WriteLn 
ReadLn; 
ND (*von 


("Zahl 1000er: ’, AnzahlTausender :3); 

(’zZzahl 500er: ’, AnzahlFuenfhunderter :3); 

("Zahl 100er: ’, AnzahlHunderter 3); 

(’Zahl SO0er: ’, AnzahlFuenfziger 3); 

(’zahl 20er: ’, AnzahlZwanziger :3); 

("Zahl i0er: ”, AnzahlZehner :3); z 
("Zahl 2er: ’, AnzahlZweier 3); 

('Zahl ler: ’, AnzahlEinmarkstuecke :3); 
Anzeige*); 


BEGIN (* Hauptprogramm *) 
ProgrammErklaeren; 


Eingabe; 


Berechnungen; 
Anzeige; 
END. 


Programmiermethodik Fanden Sie dieses Problem schon etwas knifflig? Mit 


folgender Methode, an das ’E-V-A-Schema aus dem vori- 
gen Kapitel anknüpfend, können Sie.an manche Aufga- 
ben systematisch herangehen: Überlegen Sie sich: 


O Welche Größen sollen ermittelt werden 
(Ausgabegrößen)? Ä 

O Was ist dafür gegeben, beziehungsweise was brauchen 
Sie dafür (Eingabegrößen)? 

O In welchen Rechenschritten (und mit welchen Zwi- 
schengrößen) kommt man von den Eingabe- zu den 
Ausgabegrößen? 


Alle beteiligten Größen erscheinen dann im Programm 
als Väriablen, auch die Rechenschritte können Sie ziem- 
lich direkt ins Programm übernehmen. 


Real und Integer 


Das Programm Stueckelung wäre um einiges mühsamer 
zu schreiben, wenn es nicht die ganzzahligen Operatio- 
nen DIV und MOD gäbe. Allerdings leidet die Ganzzahl- 
rechnung immer unter der Beschränktheit des Zahlbe- 
reichs. Bei einem höheren Ausgangsbetrag als 32767 fängt 
das Programm zu „spinnen” an. Sie sehen, daß es erheb- 
"liche Auswirkungen haben kann, ob Sie sich entscheiden, 
Zahlen als Integer oder als Real anzusehen. In erster Linie 


sollten Sie sich daran orientieren, was bei den jeweiligen 
gemessenen oder gezählten Gegenständen oder Größen 
sinnvoll ist: Eine Münze kann nicht, ohne ihre Gültigkeit 
zu verlieren, geviertelt werden, ein Zollstock (als Ver- 
kaufsartikel in einem Geschäft) auch nicht, wohl aber ein 
Wegkilometer (als Maß). Manchmal hängt es. vom Zu- 
sammenhang oder sogar einer Rechtsverordnung ab, ob 
eine Größe als ganze Zahl oder als Dezimalzahl zu verste- 
hen ist, zum Beispiel bei Zeugnisnoten. Überlegen Sie 
einmal bei den folgenden Beispielen, ob Sie sie als Inte- 
ger- oder Real-Variable deklarieren würden: 


Hosengroesse, Hosenlaenge, 
Durchschnittsnote, Alter, 
Menge_Schokolade {in 9), 
Zeugnisnote, Temperatur, 


Anzahl_der_Haltestellen 


Wenn allerdings die Zahlen größer werden als die ma- 
ximal zulässige ganze Zahl für Integer-Werte, bleibt 
nichts übrig, als Zuflucht zu Real- Größen zu nehmen, die 
mehr Stellen zulassen. 

Die dabei auftretenden Ungenauigkeiten können aller- 
dings oft nicht toleriert werden. Stellen Sie sich ein Buch- 
haltungsprogramm vor, das Beträge, seien es auch Pfen- 
nige, unterschlägt. Ein Buchhaltungsprogramm darf in 
keinem Fall versehentlich oder aus technischen Gründen, 
weil es intern Real-Zahlen verwendet, Beträge verschluk- 
ken - und seien sie noch so klein. 

Um mit großen Zahlen, bei denen nicht gerundet wer- 
den darf, arbeiten zu können, haben sich die Konstruk- 
teure der meisten Pascal-Systeme Spezialitäten ausge- 
dacht. In vielen Pascal-Arten gibt es einen eigenen Daten- 
typ für lange Ganzzahlen. Ein solcher Typ ist ab Turbo 4.0 
unter dem Namen LongInt vordefiniert. Anstelle der 16 
Bit der gewöhnlichen Integer-Variablen wird für Werte 
dieses Typs der doppelte Speicherbereich reserviert. 
Longlnt-Werte dürfen daher im Bereich von -2147483648 
bis +2147483647 liegen, also zirka zwischen + 2 Milliar- 
den. Damit läßt sich die Buchhaltung eines kleineren Be- 
triebes durchaus programmieren. Wenn Sie über Turbo- 
Pascal ab Version 4.0 und einen numerischen Ko- 
prozessor oder über Turbo-Pascal ab Version 5.0 bzw. 
Quick-Pascal verfügen, so gibt es für derartige Aufgaben 
einen noch besser geeigneten Spezialtyp, den Typ Comp. 
Bei Comp wird praktisch nochmals doppelt so viel Spei- 


Ausnahmen 


Nicht tolerierbare 
Rundung 


Spezialkonstruktionen 
zur Rechnung mit 
großen Ganzzahlen 


“cher wie bei'Longint ar eine ganze Zahl reserviert, so 
daß Zahlen zwischen. -2°° und 42° -1 (und damit noch 
18stellige ganze Zahlen) dargestellt werden können. Vor- 
aussetzung ist, daß der Koprozessor (bzw. ab Turbo 5.0, 
falls nötig, stattdessen seine Software-Emulation) am An- 
fang des Programms mittels der Compileroption I$N+)} 
aufgerufen wird. 


Ä 


"Hin und zurück zwischen den Typen 


Die Bereiche Real und Integer sind nicht völli g gegenein- 
ander abgeschottet: Jeder Ausdruck von Integer-Größen, 
in denen eine Division mit / vorkommt, wird bekanntlich 
zu einem Real-Ausdruck. Außerdem darf jeder Integer- 
Ausdruck an eine Real-Variable zugewiesen werden. Um 
eventuell den umgekehrten Weg'beschreiten zu können, 
gibt es zwei Funktionen: 


trunc (Zahl) 


schneidet von der Real-Größe Zahl die Stellen hinter dem 
Komma ab ( truncate, „stutzen”, eigentlich „auf den 
: Baumstumpf zurückschneiden”). Das Ergebnis ist der 
entsprechende ganzzahlige Integer-Wert. Zum, Beispiel 
bedeutet: 


trunc (23.2) 
trunc. (-4.5) 


die Zahl 23 bzw. die ganze Zahl 4. Die zweite Funktion 
zum Runden heißt: 


Found: (Zahl) 


und ergibt den ‚gerundeten Wert von Zahl als Integer-Grö- 
Be. 


round (23.2) 
round (-4.5) 


- ist 23 bzw.--5. 

Es soll jetzt mit Hilfe der trunc-Funktion das Dosen 
' Stueckelung erweitert werden, so daß es Beträge größer als 
+32767 zunächst als Real-Zahlen verarbeitet. Die Kniffe, 
. die dabei angewendet werden, gehören schon zu den 
 schwierigeren Tricks. Verzweifeln Sie’nicht, werin Ihnen 
vorläufig so etwas nicht selbst einfällt. 


Verbessertes Stückelungsprogramm 


Hier ist erst einmal das neue Programm, so weit es vom 
alten abweicht: 


PROGRAM Stueckelung; 
USES crt, printer; 


VAR 
Gesamtbetrag, VerbleibenderBetrag : Real; 
Verbleibend Integer; 
AnzahlTausender, AnzahlFuenfhunderter, 
AnzahlHunderter, AnzahlFuenfziger, 
AnzahlZehner, AnzahlZwanziger, 
AnzahlFuenfer, AnzahlZweier, 


AnzahlEinMarkstuecke : Integer; 


PROCEDURE ProgrammErklaeren; 
BEGIN 
{wie bisher) 
END; 


PROCEDURE Eingabe; 
BEGIN 
{wie bisher) 
END (*von Eingabe *); 


PROCEDURE Berechnungen; 


BEGIN 
AnzahlTausender := trunc (Gesamtbetrag/1000); 
VerbleibenderBetrag := Gesamtbetrag - AnzahlTausender * 1000.0; 
Verbleibend := trunc (VerbleibenderBetrag); 


{Die trunc-Funktion überführt hier den 
Real-Wert in einen Integer-Wert; 

ab dann geht es weiter im 
Integer-Bereich.) 


AnzahlFuenfhunderter := Verbleibend DIV 500; 
Verbleibend :z Verbleibend MOD 500; 
AnzahlKunderter := Verbleibend DIV 100; 
Verbleibend := Verbleibend MOD 100; 
AnzahlFuenfziger := Verbleibend DIV 50; 
Verbleibend := Verbleibend MOD 50; 
AnzahlZwanziger := Verbleibend DIV 20; 
Verbleibend := Verbleibend MOD 20; 
AnzahlZehner := Verbleibend DIV 10; 
Verbleibend := Verbleibend MOD 10; 
AnzahlZweier _ := Verbleibend DIV 2; 
AnzahlEinMarkStuecke := Verbleibend 2; 


END (* von Berechnungen *); 


MOD 


{Weiter wie bisher) 


chr-Funktion 


In den Berechnungen :wird zunächst die Anzahl der 
vollen Tausender ermittelt, indem Gesamtbetrag- mittels 
der für Real-Werte allein möglichen Operation / durch 
1000 geteilt wird. Vom Ergebnis wird durch Abschneiden 
der Stellen hinter dem Komma ein Integer-Wert gebildet. 
Der verbleibende Betrag, der weiter aufzuschlüsseln ist, 
ergibt sich dadurch, daß - als Ersatz für eine im Real-Be- 
reich nicht vorhandene MOD-Operation - die Differenz 
des Ausgangsbetrages und des durch Tausender begli- 
chenen Betrages gebildet wird. Es muß hier: - 


AnzahlTausender * 1000.00 


und nicht einfach 1000 geschrieben werden. .Denn 1000 ist 
ganzzahlig, so daß das Produkt von, AnzahlTausender * 
1000 auch Integer wäre, also nie +32767 überschreiten 
könnte. 1000.0 gilt dagegen als Real, so daß der ganze 
Ausdruck im Real-Bereich angesiedelt wird. Um an- 
schließend wieder Integer-Operationen zu verwenden, 
wird noch VerbleibenderBetrag mittels trunc in eine Inte- 
ger-Größe umgewandelt. Wegen der strengen Typenun- 
terscheidung in Pascal muß so etwas manchmal sein: Ei- 
ne Größe wird in eine andere überführt, wobei sich nur 
der Typ, aber nicht der Wert ändert. 

Pascal kennt noch zwei weitere Standard-Transfer- 
funktionen. Sie vermitteln zwischen dem Typ Char und 
dem Typ Integer. 


Zahlen und Zeichen 


Beim Malen der Rahmen zum Programm Stempel wurde 
deutlich, daß es Zeichen gibt, die nicht (beziehungsweise 
nur als Controlzeichen) im Editor geschrieben, aber mit- 
tels ihrer Nummer im ASCJ-Zeichensatz angesprochen 
werden können. 

Wenn die Nummer eines Zeichens durch eine Integer- 
Variable oder einen entsprechenden Ausdruck angege- ' 
ben wird, benötigt man die Funktion chr („chr“ soll an 
Char erinnern). Zum Beispiel bedeutet im IBM-Zeichen- 
satz das Herz «: 


chr (3) 


Mit der folgenden Schleife können Sie sich den gesam- 
ten Zeichensatz ihres Computers vorführen lassen (wun- 
dern Sie sich nicht über ein paar merkwürdige Effekte bei 


den ersten 32 Zeichen, den sogenannten Steuerzeichen 
Ihres Computers): 


FOR Nummer := 0 TO 255 DO 
BEGIN | 
WriteLn ( Nummer :3, ’° ', chr ({Nummer)): 
END; 


chr überführt also Zahlen in Char-Werte. 

Die Umkehrung geht mit der Funktion ord, welche die ord-Funktion 
Ordnungszahl, das heißt die Nummer eines Zeichens in 
der ASCII-Tabelle angibt. Zum Beispiel hat ord (‘A’) den 
Wert 65, ord (‘1’) den Wert 49. Beachten Sie den Unter- 
schied zwischen dem Zahlzeichen ’1’ (Char-Wert) und 
der Zahl 1! Mit folgendem kleinem Programm können Sie 
irgendeine Taste oder Tastenkombination auf der Tasta- 
tur drücken und erfahren, welcher Codenummer auf der 
ASCII-Tabelle ihr entspricht. Probieren Sie auch die Con- 
trol-Kombinationen (Tastenkombinationen mit der Strg- 
Taste) aus. 


PROGRAM TastaturErforschen; 


% . 


USES crt, printer; 


VAR 
GedruecktesZeichen : Char; 
Codenummer : Integer; 


PROCEDURE ProgrammErklaeren; 
BEGIN 

ClrScr; 

WriteLn; 

WriteLn (’Das Programm ermittelt den Scancode einer Taste.’); 
Writeln (’Besondere Codes werden nicht dargestellt’, 

’(Codenummer: Q0).’); 

WriteLn (’Bitte drücken Sie eine Taste Ihrer Wahl.’); 
WriteLn; 


Write ('----------------------===-------------- -- ); 
WriteLn; 
WriteLn; 

END; 


BEGIN 
ProgrammErklaeren; 
Write (’Taste: ’); 
GedruecktesZeichen := Readkey; 


{Diese Zeile muß in Turbo 3.x folgendermaßen 
lauten: Read (KBD, Gedruecktes2eichen);') 


Write (GedrueckteszZeichen, ' '); 
Codenummer := ord (GedruecktesZeichen}; 
Write (’Codenumer: 


Writeln; 


END. 


Direkte Eingaben von 
Einzelzeichen 


5 
‚Write (Codenummer:3); 


Sie haben hier zum ersten Mal eine spezielle Tastaturle:. 
sefunktion RendKey („Lies Taste”) in’das Programm ein- 
gebaut (ab Turbo-Pascal 4.0 vorhanden). ReadKey liest 
bei'jedem Aufruf ein Zeichen von der Tastatur, ohne es 
automatisch auf dem Bildschirm auszugeben. 

Für Spezialtasten liefert der erste Aufruf von ReadKey 
das Zeichen #0 zurück, der zweite Aufruf den sogenann- 
ten Scancode der Taste. Mittels des Scancodes, praktisch 
der Tastennummer, läßt sich dann identifizieren, welche 
Spezialtaste betätigt wurde. ‘Zum Beispiel entspricht-die 
Funktionstaste Fl dem Zeichen #59, F2 dem Zeichen #60 
USW. Mehr hierzu in Kapitel 11, Seite 182. 


Von STRINGs zu Zahlen 


Mit Hilfe von ord ist es auch möglich, eine als STRING 
vorliegende Zahl in einen Integer-Wert zu verwandeln. 
Ist Zahltext eine STRING-Variable, deren Inhalt eine gan- 
ze Zahl darstellt, und Zahl eine Integer-Größe, so kommt 
mit den folgenden Anweisungen der Wert der Zahl auf 
Zahl. Als Hilfsgrößen finden die Integer-Variablen i, Letz- 
teStelle und Ziffernwert Verwendung. 


LetzteStelle :-= Length (Zahltext); 
Zahl :=.:0; » 
FOR i := 1 TO LetzteStelle DO 
BEGIN 
Ziffernwert := ord (Zahltext [i]) - 48; 
zahl := Ziffernwert + 10 * Zahl; 
END; 


Spielen Sie anhand eines Beispiels durch, wie diese An- 
weisungen arbeiten. Für die erste bis zur letzten Position 
des STRING-Wertes wird jeweils der Ziffernwert berech- 


‚net, indem mit der ord-Funktion vom Ziffernzeichen auf 


die dazugehörige Nummer übergegangen wird. Verge- 
wissern Sie sich durch einen Blick auf die ASCH-Tabelle, 


..daß die Nummer eines Ziffernzeichens tatsächlich um 48 


höher ist, verglichen mit seinem Wert als Zahl. Der Zif- 
fernwert derjeweiligen Stellewird dann zur vorher schon 
errechneten Zahl hinzugefügt, nachdem diese um eine 
Zehnerstelle größer gemacht wurde. Zum Beispiel vom 
STRING 355’ wird erst die 3 genommen und auf Zalıl ge- 
bracht. Im zweiten Schritt addiert sich die erste 5 zu 30 = 
10 * 3, schließlich die zweite 5 zu 350 = 10 * 35, so daß 
tatsächlich als Zahl am Schluß 355 herauskommt. Es wur- 
de also die Umwandlung eines Strings in eine Zahl pro- 
grammiert. In Turbo-Pascal gibt es dafür übrigens auch 
eine (bei der Version 3.x mit Vorsicht zu genießende) fer- 
tige Prozedur, die Sie später zusammen mit einer Proze- 
dur für den umgekehrten Vorgang kennenlernen werden. 


Ein neues Movie 


Zum Schluß soll anhand einer Variante des Bahnhofsbei- 
spiels gezeigt werden, wie mit geringem Aufwand durch 
geschickten Einsatz von etwas Formeln schon interessan- 
te Effekte produziert werden können: Im Programm Zug- 
verkehr herrscht auf den beiden auf dem Bildschirm ab- 
gebildeten Gleisen ein reger Verkehr in zwei Richtungen. 


PROGRAM Zugverkehr; 


USES crt, printer; 


CONST 
HoeheGleisl = 8; 
HoeheGleis2 = 12; 
Gesamtzeit = 5000; 
Geschwindigkeiti = 10; 
Geschwindigkeit2 = 19; 
' VAR 
Streckenpunkti : Integer; 
Streckenpunkt2 : Integer; 


PROCEDURE ProgrammErklaeren; 
BEGIN 
ClrScr; 
WriteLn; 


| Neues Movie 


Writeln (’Dieses Programm simuliert mit einer einfachen‘, 


'Grafik:’); a 
Writeln; 


WriteLln .(’ »Zugverkehr auf zwei Bahngleisen« ’); 


Rechnen | 


WriteLln; 
WriteLln (’ Bitte drücken Sie die Taste [RETURN].’): 
Write {’-----------------------7-- = - -- - ---- ----- ey 


WriteLln; 
‚. Writeln; 
END; 


PROCEDURE GleiseZeichnen; 
VAR ji: Integer; 
* BEGIN 
GoToXY (1, HoeheGleisl); 
FOR i := 1 TO:80 DO 
Write (’_'); 
GoToXY (1, HoeheGleis2); 
FOR i := 1 TO 80 DO 
Write (’_’); 
.END (*von GleiseZeichnenr); 


PROCEDURE Fahren; 
!NAR Zeit:.Integer;. 
BEGIN FR 
x FOR Zeit. .:= 1 TO Gesamtzeit DO 
\ BEGIN . £ 
' Streckenpunkti := (Zeit DIV Geschwindigkeit1) MOD 78 + 1; 
GoToXY (Streckenpunktl, HoeheGleisl); 
Write (’_,'); | 
GoToXY (78, HoeheGleisl); 
Write (’_); | 
Streckenpunkt2 := (Zeit DIV Geschwindigkeit2) MOD 78 + 1; 
GoToXY ( 80 - Streckenpunkt2, HoeheGleis2); 
Write (’,_’); 
GoToXY (1, HoeheGleis2); 
Write ('__’); 
- . END; 
END (*von :Fahren*); 


BEGIN 
- ProgrammErklaeren; 
ReadLn; 
ClrS$Scr; 
GleiseZeichnen; 
Fahren; 
END. 


Im nächsten Kapitel sehen Sie, wieman den Zug über 
Weichen leiten kann. Je nach dem Wert einer Variablen 
darf dann etwas Unterschiedliches passieren. 


Abbildung 7-2: „Zugverkehr" 


Aufgaben 

1. Was kommt heraus bei: 
14 MOD 3 17 DIV 3 
41 MOD 10 41 DIV 10 
45 DIV 9 45 MOD 9 
121 MOD 11 1984 MOD 4 


2. Wandeln Sie eine Zeitangabe in Sekunden in eine sol- 
che mit ganzen Stunden, Minuten und Sekunden um. 
Beispiel: Wieviel Stunden, Minuten, Sekunden sind 5111 
Sekunden? 

3. Schreiben Sie ein Programm, in dem folgende Aus- 
drücke einer Real-Variablen Ergebnis zugewiesen werden 
und anschließend Ergebnis mit zwanzig Nachkommastel- 
len ausgegeben wird. Rechnen Sie nach: Bei allen Aus- 
drücken müßte das Ergebnis eigentlich O lauten! 

a) ((1/5)*5)-1 

b) 1.34 + 1.66 - 3.0 

c) (((1234.99 - 1235.0) * 10000.0) + 100.0) * 100000.0 

Turbo-Pascal bis zur Version 3.0 zeigt bereits bei den 
sehr simplen Ausdrücken a) und b) erstaunliche Fehler, 
die letztlich auf Ungenauigkeiten der Umwandlung der 
Dezimalzahlen in die interne Darstellung beruhen. Der 
dritte Ausdruck wird auch von den neueren Pascal-Com- 
pilern falsch berechnet, da er an die Grenze der Auflö- 
sung des Typs Real führt. Noch bei Turbo 4.0 ist der Feh- 
ler unannehmbar hoch - es kommt eine Zahl nahe bei 
-1.6 heraus! Die neueren Versionen werden immer besser 
- schauen Sie sich an, was Ihr Compiler liefert. Probieren 
Sie, wenn Sie über Turbo-Pascal ab 5.0 oder über Quick- 
Pascal verfügen, auch aus, was passiert, wenn Sie für Er- 
gebnis statt des Typs Real die Typen Double oder Exten-, 
ded benutzen (dazu muß, wie oben beim Typ Comp 
erwähnt, der numerische Koprozessor angesprochen 
werden, indem am Programmanfang die Compileroption 
[$N+} eingefügt wird.) 


- 2-7 - —- 0. 


Abbildung 7-3: Balkendiagramm i in 12 eichensatzgrafik 


CCecccc SSSSTTS$ E 
CCCCccc SSSTTSTT | 
CCccccc SSSSSTST 
CCCCecc SSSSS$S$ 
CCCCCcC SSSSSS$ 
CSCecccc SSSSSSS$ 
CCCCccc SSSSTS$$ 
CCCCCcc SSSS55T 
CCCeCcc SSSSSS$S 
CCecccc SSSSSS$ 
COCCCccc SSSTSTTST 
(elele/alalele, SSSSS5S$ 
Ceccccc SSSSS$S GGGGGGG 
cCcecceccc SSSSS$S$ GGGGGEG 
CCOCCccC SSSSSSS GGGGGGG FFFFFFF 
CCCCCcCc SSSSSTS$ GGGGGGG FFFFFFF XXAXXXX 
CDU SPD Grüne FDP Sonst. 


4. Versuchen Sie das Programm, das einen Geldbetrag 
entsprechend den existierenden Scheinen und Münzen 
stückelt, zu erweitern, so daß auch Beträge mit Pfennigen 
verarbeitet werden. 

5. Ergänzen beziehungsweise verändern Sie ein Liefer- 
schein-Programm so, daß die Mehrwertsteuer vom Pro- 
gramm berechnet und ausgewiesen wird. Denken Sie da- 
bei an die Formatierung der Ausgabe von Real-Größen, 
sonst wird die bei DM-Beträgen völlig unsinnige Gleit- 
punktdarstellung angezeigt. 

6. Schreiben Sie ein Programm, das die Prozentanteile 
der Parteien bei den Wahlen als Balkendiagramm veran- 
schaulicht. Einzugeben sind die erreichten beziehungs- 
weise hochgerechneten Prozentsätze für CDU, SDR: Grü- 
ne, FDP, Sonstige. 
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8 Die Entscheidungs- 
struktur 


Sequenz und Entscheidungsstruktur — Die IF-THEN- 
ELSE-Anweisung - Bedingungsausdrücke — Syntax 
der IF-Anweisung - Programmablaufpläne und Struk- 
togramme - Einseitige und geschachtelte Strukturen — 
Aufgaben 


Wer die Bedingungen stellt, bestimmt, wo es lang geht. 
Aber einen Weg zurück gibt es nicht. In der Theorie des 
Programmierens wird diese Programmfigur Entschei- 
dungsstruktur oder auch Auswahlstruktur genannt. Die 
folgende Darstellung soll den Gedanken veranschauli- 
chen: Der Weg, der Programmfluß, gabelt sich, eine Ab- 
zweigung zurück wird nicht zugelassen. 

| 

| 


Sequenz und Entscheidungsstruktur 








Abbildung 8-1: Der Programmfluß gabelt sich. 


Die bisherigen Programme waren, abgesehen von der et- 
was aus dem Schema tanzenden FOR-Anweisung, so be- 
schaffen, daß sie linear abgearbeitet wurden. Eine Anwei- 
sung folgte nach der anderen, wenn alle.durch waren, 
endete das Programm. Diese einfache Programmstruktur 
trägt in der Theorie auch den Namen sequentielle Pro- 
grammstruktur (oder auch Folge, lineare Folge oder Se- 
quenz). Nach DIN läßt sich ein Diagramm für eine Se- 
quenz aus zum Beispiel drei Anweisungen so zeichnen: 


Rinks und Lechts 
kann man leicht velwechsern. 
Ernst Jandl 
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Bedingungen ... 


..und Konsequenzen 


Zugfohrt 
BisZurWeiche 


Zugfohrt 
UeberWeiche 


Zugfahrt 
HinterWeiche 





| 
Abbildung 8-2: Sequentielle Programmstruktur: Schema und Bei- 
spiel „Zugfahrt” 


Wollen Sie von dem Geradeaus der Sequenz abbiegen, 
je nach Umständen den einen oder den anderen Weg neh- 
men, Weichenstellungen in das Programm einbauen, so 
sagt die Theorie dazu: eine Entscheidungsstruktur ver- 
wenden. | 

Dazu wird eine Bedingung formuliert (zum Beispiel: 
„steht die Weiche auf Linksfahrt”). Ist sie erfüllt, soll der 
eine Weg (das heißt die eine Anweisung oder eine Folge 
von Anweisungen) eingeschlagen werden, andernfalls 
der zweite. 

Ein anderes Beispiel wäre: Wenn eine Person Alkohol 
‚getrunken hat, nimmt sie (das legen Sie jetzt per Pro- 
gramm fest) ein Taxi, andernfalls fährt sie mit dem eige- 
nen Wagen. Sie müssen sich aber vorsehen: Sie sollten 
sich beim Programmieren nicht nur über bestimmte ein- 
getretene Umstände Gedanken machen, sondern über al- 
le zulässigen Ereignisse. Es gibt Züge, die links abbiegen, 
und solche, die geradeaus weiterfahren. Da Programme 
sich eigentlich nur mit überschaubaren Situationen be- 
schäftigen dürften, fordert die Entscheidungsstruktur 
von Ihnen, daß sich die aufgeteilten Zug-, Lebens- bezie- 
hungsweise Programmpfade stets wieder vereinigen. Al- 
le Situationen münden (mindestens formell) wieder in 
das gleiche, gemeinsame Programm - andernfalls gibt es 
einen Programmabsturz. Die symbolische Darstellung 


\ 
I 


| 
| 
| 
| 





Abbildung 8-3: Der Progranmifluß wird wieder zusammengeführt. 


von oben bedarf daher noch der Fortsetzung. Die beiden 
Zweige müssen wieder zusammenkommen (Abb. 8-3). 
Ein DIN-Diagramm für die Entscheidungsstruktur 
sieht (zum Beispiel mit den Anweisungen 1A, 1B wie „Ia- 
xirufen”, „Taxinehmen” für den Pfad 1 beziehungsweise 
2A, „mit eigenem Wagen fahren”, für den Pfad 2) so aus: 






Bedingung 
ertölll 
3 










Anweisung 2A 


Anweisung IA | 


Anweisung IB 


Abbildung 8-4: Diagramm nach DIN für eine Entscheidungs- 
struktur 


Die IF-THEN-ELSE-Anweisung 


In der Programmiersprache Pascal bildet man die Ent- 
scheidungsstruktur mit Hilfe der Schlüsselwörter IF 
(„wenn“), THEN („dann“) ünd ELSE („sonst, andern- 
falls”). Der Dann-Teil entspricht dem JA-Zweig, der 
sonst-Teil dem NEIN-Zweig des Diagramms. . 


Die Entscheidungsstruktur | 


IF {Wenn ... Bedingungsausdruck} 
THEN {dann} 
BEGIN 
AnweisunglA; {eine oder mehrere Anweisungen) 
AnweisungliB; 
END 
ELSE {sonst} 
BEGIN $ 
Anweisung2A; {eine/mehrere Anweisungen} 


END; 


‘ 


Das ganze Schema stellt insgesamt eine IF-THEN-EL- 
SE- oder kurz eine IF-Anweisung dar: Die Anweisungs- 
gruppen des Dann- und des Sonst-Teils sind jeweils von 
BEGIN und END umschlossen. Mit Einrücken verdeut- 
licht man, welche Anweisungen zum DANN und zum 
SONST gehören, der Compiler erkennt es (wie schon bei 
der FOR-Anweisung) durch die Umrahmungen mit BE- 
GIN-END. Die Anweisungen, die nach der gesamten IF- 
Anweisung (das heißt nach dem Abschluß von’deren EL- 
SE-Teil) folgen, werden unabhängig vom Zutreffen oder 
Nichtzutreffen der Bedingung ausgeführt. Im Sinne des 

Liniendiagramms sind ab hier die beiden Zweige wieder 
zusammengeführt. Ein Beispiel könnte etwa so aussehen: 


IF Promiile > 0 
THEN 
BEGIN 
TaxiRufen; 
TaxiNehmen; 
END 
ELSE 
BEGIN 
MitEigenemWagenFahren; 
END; 
ZuBettGehen; 


Promille ist dabei natürlich.eine Real-Variable; TaxiRu- 
fen, TaxiNehmen, MitEigenem Wagen Fairen und ZuBeltGe- 
- hen sind Prozeduren. 

Oder betrachten Sie ein anderes, mies: verständ- 
liches Beispiel für einen kurzen Programmausschnitt mit 
einer IF-Anweisung (wobei Anzahl Kopien eine Integer-Vä- 
riable und Kopienpreis; Kopienkosten Real:Größen sind): 
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IF AnzahlRopien < 100 
THEN 
BEGIN 
Kopienpreis := 0.10; 
END 
ELSE 
BEGIN 
Kopienpreis := 0.09; 
END; (Hier ist die IF-Anweisung zu Ende.} 
Kopienkosten := AnzahlKopien * Kopienpreis; 
{Das trifft wieder auf beide Fälle zu.) 


Bedingungsausdrücke 


In den Beispielen wurde als Bedingungen angenommen 
und eingesetzt: 

Promille > 0.8 beziehungsweise AnzahlKopien < 100. Bei 
einer IF-Anweisung darf als Bedingungsausdruck alles 
stehen, was der Computer auf zutreffend oder nichtzu- 
treffend (wahr oder falsch) prüfen kann. 

In erster Linie sind dies Vergleiche, die mit Vergleichso- Vergleichs 
peratoren, das heißt > (größer), < (kleiner), >= (größer operatoren 
oder gleich), <= (kleiner oder gleich), <> (ungleich) oder 
einfach mit = gebildet werden. 








.- m m m hun ee” u... -- 


| Vorsicht: Verwechseln Sie nicht die Wertzuweisung an | Merkzettel 
_ eine Variable, die in Pascal mit := geschrieben wird, mit : 
: dem Vergleich dieser Variable mit einem Wert. 


- 17 [oo u, 


un 


Sie müssen bei der Bildung der Ausdrücke (ähnlichwie Vergleich nur 
bei Wertzuweisungen) darauf achten, daß Sie, wieschon bei kompatiblen 
der Volksmund fordert, nicht Äpfel mit Birnen verglei- Ausdrücken 
chen. Nur für Größen desselben beziehungsweise eines 
kompatiblen Typs gibt es Vergleichsmöglichkeiten, also 
Real-Variablen mit Real-Zahlen, Char-Variablen mit 
Char-Werten und so weiter. Mit entsprechend deklarier- 
ten Variablen oder Konstanten dürfen Sie zum Beispiel 
schreiben: | 


Geschwindigkeit < 100 


Gewicht >= 80 
Weichenstellung = Abbiegestellung : 
Zeichen = a 

Gewicht = Gewicht2 


Die Entscheidungsstruktur | 


Promille > 0,8 
Tempo > Limit + Limit/10 
Promille > PromilleAbsoluteFahruntuechtigkeit 


Die Richtung, in der Sie einen Ausdruck notieren, ist 


“ grundsätzlich gleichgültig. Sie könnten also genausogut 


Boolean 


Logische. 
Verknüpfungen 


100 > Geschwindigkeit und so weiter schreiben (anders als 
bei einer Wertzuweisung). oo. 

Bei jedem dieser Ausdrücke kann der Computer fest- 
stellen, ob er „wahr” oder „falsch” ist (mit Sinn natürlich 
nur, wenn auf die Variablen vorher die richtigen Werte 
gebracht wurden). Deshalb heißen solche Ausdrücke 
auch logische oder boolesche Ausdrücke. Es gibt in Pas- 
cal einen eigenen Variablentyp für boolesche Werte, den 
Typ Boolean. Wie Sie im nächsten Kapitel sehen werden, 
kann eine boolesche Variable das Ergebnis eines Ver- 
gleichs (das heißt true oder false) aufnehmen und auch 
für sich einen Bedingungsausdruck bilden. 

Bedingungen können mit logischen Verknüpfungen 
wie AND (,Und“, hier frei: „sowohl das eine wie das an- 
dere”), OR (nicht ausschließendes „Oder“”) und NOT 
(„Nicht”) zu neuen Bedingungen kombiniert werden. Be- 
achten Sie: Die Verneinung NOT bezieht sich auf einen 
kompletten Ausdruck (nicht bloß wie in der Alltagsspra- 
che auf.den Vergleichsoperator). Teilausdrücke sind in 
runde Klammern zu setzen. Drei Beispiele verdeutlichen 
das Gesagte: 


(Alter >= 18) AND (Geschlecht = ’m’) 


{Gezogenwerden vom Militär möglich) 


(Tempo > Limit): OR (Sichtweite < Bremsweg) 


NOT (Taste = 'j’) 
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Alltagssprache und 
Logiksprache 


{Auto fährt zu schnell} 
{Andere Taste als ’j’ gedrückt) 


Seien Sie vorsichtig, wenn Sie Und, Oder ım Sinn der 
Verknüpfungen der Logik verwenden, welche sich von 
den Verknüpfungen des Alltagsgebrauchs unterscheiden. 
So sagt man: „Ich kann mit der Taxe und (auch) mit dem 
Bus zum Bahnhof fahren.” Man kann in dieser Weise mit- 
teilen, daß beide Alternativen möglich sind (eventuell die 
eine gegenüber der anderen bevorzugt wird). Daß nicht 
beides gleichzeitig zu passieren braucht, ist selbstver- 
ständlich, weil man weiß, daß es nicht gleichzeitig ge- 
schehen kann. Formallogisch müssen Sie jedoch genau 
diese Information ausdrücken, daß man mit dem einen 


| Syntax der IF-Anweisung 


oder dem anderen Verkehrsmittel fährt. Im Pascal-Stil ist 
zu notieren: 


(Verkehrsmittel = Taxi) OR (Verkehrsmittel = Bus) 


Für Char-Größen gibt es eine sehr praktische Schreib- Angabe eines 

weise, wenn Sie einen Bereich von Werten beschreiben Char-Bereichs 
wollen. Soll zum Beispiel geprüft werden, ob die Char- 
Variable EingabeZeichen einen der Werte ’A’, ’a’, 'X’, x’ 
hat, so können Sie den folgenden Ausdruck verwenden 
(es handelt sich bei der Aufzählung der Werte in eckigen 
Klammern um ein SET, eine Pascal-Menge, auf die in ei- 
nem späteren Kapitel genauer eingegangen wird): 


EingabeZeichen IN [’A’, ’a’, 'X’, 'x’] 
Dieser Ausdruck ist gleichbedeutend mit 


(EingabeZeichen = ’A’) OR (EingabeZeichen = 'a') OR 
(EingabeZeichen = ’X’) OR (EingabeZeichen = '’x’) 


Syntax der IF-Anweisung 


Auch wenn oder gerade weil sich die Beispiele fast wie 
Alltagssprache lesen, jedenfalls wenn Sie die englischen 
Wörter gegen ihre deutsche Entsprechung austauschen, 
gibt es reichlich Fußangeln. Das erste Problem taucht auf, 
weil der BEGIN-END-Rahmen um eine Anweisungs- 
gruppe fehlen darf, wenn die Gruppe nur eine einzige 
Anweisung enthält. Das Beispiel von oben dürfen Sie in 
Pascal noch näher an der Alltagssprache formulieren: 


IF AnzahlKopien < 100 
THEN 
Kopienpreis := 0.10 
ELSE 
Kopienpreis := 0.09; 
Kopienkosten := AnzahlKopien * Kopienpreis; 


Aber sobald mehrere Anweisungen zum Dann- oder 
Sonst-Teil gehören, muß der betreffende Teil mit BEGIN 
und END gerahmt werden, weil das Semikolon, das die 
Anweisungen trennt, sonst als Abschluß der gesamten IF- 
Anweisung interpretiert würde. Da mit ELSE keine neue 
Anweisung, sondern nur der nächste Teil der noch.nicht 
beendeten IF-Anweisung anfängt, gilt außerdem die Re- 


gel: 
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Merkzettel |'Vor ELSE steht nie ein Semikolon! 





Schachtelung . Syntaktisch können Sie Bedingungen kombinieren, so 
von Bedingungen viel Sie mögen. Die Anweisungen im JA- oder NEIN- Teil 
einer IF-Anweisung dürfen ohne weiteres selbst IF-An- 

weisungen sein. Die Anweisungen sind darın geschach- 

telt wie ineinander gepackte Kästchen. Versuchen Sie, be- 

vor Sie weiterlesen, selbst ein kleines Programmstück zu 

schreiben, das in Abhängigkeit vom Promillewert Verhal- 
tensempfehlungen für Autofahrer ausgibt. Haben Sie es 

probiert? Hier eine mögliche Lösung (in die Rubrik „Pro- 

mille > 0.8” lassen sich noch weitere Fallunterscheidun- 

gen - zum Beispiel für die absolute Fahruntüchtigkeit - 


einbauen): 
IF Promille > 0 
THEN 
BEGIN 
IF Promille > 0.8 
THEN 
BEGIN 
WriteLn (’ Unzulässig, einen Wagen zu fahren. '); 
WriteLn (’ Nehmen Sie auf jeden Fall ein Taxi! '); 
END 
ELSE 
BEGIN M 
WriteLn (’ Fahrvermögen schon beeinträchtigt.’); 
WriteLn (’ Es wird dringend geraten, nicht selbst zu. 
fahren! ’); 
END; | 
END 
ELSE 
BEGIN 
WriteLn (' Das Autofahren ist erlaubt!’); 


END; 


Wenn Sie es selbst probiert haben, sah Ihr erster Lö- 
sungsversuch sicherlich anders aus. In der Alltagsspra- 
che, an der man sich natürlich orientiert, gibt es selten ein 
„Sonst“ oder voneinander abhängige Bedingungen. Viel- 
leicht haben Sie sich deswegen verheddert, aber auch ein 
ziemlich anders aufgebautes Programm kann durchaus 
korrekt sein. Komplettieren Sie das Programm mit einer 
Eingabeprozedur für den Promillewert und testen Sie, Ob 
es die Auskunft gibt, die Sie von ihm erwarten. Weiter un- 


ten werden geschachtelte Bedingungen noch einmal zur 
Sprache kommen. 


Programmablaufpläne und 
Struktogramme 


Diagramme wie die beiden oben skizzierten, die recht an- 
schaulich zeigen, in welcher Reihenfolge in einem Pro- 
gramm was passiert, werden Programmablaufpläne ge- 
nannt, oft abgekürzt PAP(s). Sie heißen auch Fluß- 
diagramme, weil sich an ihnen der Fluß eines Programms 
schrittweise verfolgen läßt. 

Die DIN-Norm 66001 legt fest, wie die Kästchen und 
Striche in einem PAP gemalt werden sollen. Soweit in die- 
sem Buch überhaupt PAPs benutzt werden, seien gewisse 
Freiheiten gestattet. Im Standard-PAP symbolisiert das 
auf der Spitze stehende Quadrat (bzw. ein Rhombus), in 
dem eine Frage steht und das den Ausgangspunkt eines 
-JA- und eines NEIN-Programmastes bildet, eine Verzwei- 
gung. Nach DIN-Norm müßte der JA-Ast geradeaus wei- 
tergehen und nur der NEIN-Ast zur Seite abbiegen. 

Ein Rechteck steht für eine allgemeine Anweisung. Ver- 
bindungslinien bezeichnen die Reihenfolge des Ablaufs. 
Sie sind, außer wenn sie Pfeile mit der umgekehrten Rich- 
tung tragen, von oben nach unten und von rechts nach 
links zu lesen. Ein Oval ist eine Anfangs- oder Endstelle 
des Programmflusses. 


Abbildung 8-5: Wichtige. Symbole des Programmablaufplans nach 


DIN 66001 





PAP nach DIN 


Die Entscheidungsstruktur | 


108 


Verzweigung 
und Entscheidungs- 
struktur 





Die Verzweigung sagt an sich nichts darüber aus, wie 
der Weg nach ihr weitergeht. Derartige einfache Elemente 
spielen in alten Programmiersprachen eine große Rolle. 
Im Gegensatz zur Entscheidungsstruktur ist hier nicht 
festgelegt, daß die sich trennenden Wege auch wieder 
einander treffen müssen. Es’darf jeder Pfad zu einem’ei- 
genen Ende finden, sich mit anderen Pfaden kreuzen 
oder eine Brücke zu einem anderen Teil des Programms 
schlagen. Die Diagramme, welche auf diese Art entste- 
hen, wirken sehr viel abwechslungsreicher, als wenn Sie 
sich auf das strenge Schema der Entscheidungsstruktur 
beschränken. Aber Ästhetik und Logik stehen hier im Wi- 
derspruch. Diagramme und Programme mit beliebig ver- 
zweigten Wegen werden ganz leicht undurchschaubar 
und.unkorrigierbar. Nur mit sehr großem Aufwand läßt 
sich herausfinden, woher ein Fehler im Gewirr der Wege 
eines sogenannten Spaghetti-Codes kommt. Sehen Sie 
sich das folgende, noch relativ harmlose, aber schwer zu 
analysierende Beispiel eines nicht wohlstrukturierten 
Programmstücks an: 


Nein 


Jo 


Nein 


( STOP ) 


ern ae 


Abbildung 8-6: Schlecht strukturierter PAP 


Nassi-Shneiderman-Diagramme 


Eine richtige Entscheidungsstruktur führt nicht in ein La- 
byrinth. Jeder Pfad mündet wieder in den Hauptweg ein, 
jede Aufspaltung wird nach einer längeren oder kürzeren 
Strecke zurückgenommen. Einen Sprung rückwärts gibt 
es nicht. Damit von vornherein niemand mehr auf falsche 
Gedanken kommt, wurde eine Sorte von Diagrammen 
kreiert, die nach ihrem ganzen Aufbau keine Seiten- und 
Rücksprünge zuläßt. Nach ihren Schöpfern werden sie 
Nassi-Shneiderman-Diagramme oder auch Struktogram- 
me (nicht zu verwechseln mit den Strukturdiagrammen) 
genannt. Bei diesen Diagrammen sind die Linien ver- 
schwunden, die an falsche Orte gezogen werden könn- 
ten. Die Kästchen für die einzelnen Anweisungen schlie- 
ßen auf voller Breite aneinander an, so daß 
Anweisungssäulen entstehen. Die Entscheidungsstruk- 
tur erscheint im Struktogramm als eine Aufteilung der 
Säule in eine linke und eine rechte Teilsäule. 









ZugfohrtBisZurWeiche 
ZugfohrtUeberWeiche 
ZugfahrtNachWeiche 







Abbildung 8-7:Sequentielle Struktur 












Weichenstellung = '1' 
JA 


ZugBiegtNochLinks 


ZugAufNeuemtGleis 










ZugGerodeUeberWeiche 


Abbildung 8-8: Entscheidungsstruktur 


Die Entscheidungsstruktur | 


Faustregel zu 
Prozedurlänge 


Als Faustregel gilt übrigens, daß ein einzelnes Strukto- 
gramm nie größer als eine DIN-A4-Seite sein soll. Wenn 


‚Sie merken, daß das Programm oder die Prozedur zulang 


Schrittweise 
Verfeinerung bei 
Struktogrammen 


IF Bedingungsausdruck 
THEN 
BEGIN 
AnweisungiA; 
AnweisungiB; 
END 
ELSE; 
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wird, ist es höchste Zeit, mehrere einzelne Anweisungen 
zu einer Prozedur zusammenzufassen. Im Hauptstrukto- 
gramm bleibt nur der Prozeduraufruf stehen. 

Um den Ablauf innerhalb der Prozedur zu beschreiben, 
verwenden Sie ein gesondertes Struktogramm, zu dem es 


- eventuell wieder Unter-Struktogramme gibt und so wei- 


ter. Struktogramme sind also in derselben Weise hierar- 
chisch aufeinander bezogen wie Prozeduren. Die Technik 
der schrittweisen Verfeinerung kann mit Struktogram- 
men genau abgebildet werden. In der alten Form der 
PAPSs gibt es im Prinzip keine Darstellung von Unterpro- 
grammen..Wenn das Blatt Papier nicht ausreicht, behilft' 
man sich mit einem sogenannten Konnektor, einer An- 
schlußstelle. Das ist ein kleiner Kreis (oder auch eine 
Klammer) mit einer Kennzeichnung, zu der eine Verbin- 
dungslinie geführt wird. Er korrespondiert einem gleich 
gekennzeichneten Konnektor auf einem anderen Blatt. 


Einseitige Entscheidungen und 
geschachtelte Strukturen 


Eine einseitige Entscheidung ist beim Programmieren 
nicht die Bevorzugung einer Partei, sondern bedeutet, 
daß der ELSE-Teil einer IF-Anweisung nicht gebraucht 
wird. Für den Fall, daß die hinter IF stehende Bedingung 
nicht zutrifft, soll einfach nichts passieren. Es ist dann in 
Pascal erlaubt, den ELSE-Teil der IF-Anweisung entwe- 
der leer zu lassen oder auch gar kein ELSE zu schreiben. 
Das Struktogramm wird mit leerer rechter Teilsäule ge- 
malt (oder zum Zeichen, daß’Sie nicht einfach vergessen 
haben, etwas hineinzuschreiben, mit ./. markiert). Sche- 
matisch schreibt man: 


{Wenn ...} 
{dann} 


{Eine oder mehrere} \ı 
{Anweisungen} 


{Der Sonst-Teil enthält nichts.} 


Wenn ELSE weggelassen wird, steht das Schluß-Semi- 
kolon der IF-Anweisung schon nach dem Dann-Teil. Ein- 
seitige Entscheidungen sind zwar erlaubt, aber beim Pro- 
grammieren mindestens mit der gleichen Vorsicht zu 
genießen wie in der Politik. Das folgende Schema „Wenn 
... dann ...” ist ausgesprochen verführerisch: 


IF Bedingungsausdruck 
THEN ... 


Im Alltag argumentiert man mit auf bestimmte Fälle 
zugeschnittenen Ketten von Bedingungen. Es ist nicht 
notwendig, die „sonstigen” Fälle zu beschreiben, weil 
den Gesprächspartnern die Situation deutlich ist und das 
Gemeinte erschlossen werden kann. Aber der Computer 
versteht nicht, was man meint - er versteht gar nichts. Ein 
geflügeltes Wort der Softwarebranche lautet: „Der Com- 
puter tut, was wir ihm sagen - nicht, was wir von ihm 
wollen.” Bei der IF-Anweisung und vor allem, wenn 
mehrere kombiniert angewandt werden, müssen Sie be- 
sonders aufpassen, daß das intuitive Sprachverständnis 
Ihnen nicht einen Streich spielt. 

Denken Sie stets bei der IF-Anweisung die Logik der 
Alternative zu Ende: nicht nur sagen, was geschehen soll, 
wenn irgendetwas sich so und so verhält - sondern auch 
die Konsequenzen im anderen Fall überlegen und dies im 
ELSE-Teil aufschreiben. Eine einseitige Entscheidung 
sollten Sie nur dann verwenden, wenn ım anderen Fall 
tatsächlich nichts geschieht. Versuchen Sie nicht, mehrere 
Fälle mit getrennten, einzelnen IF-Anweisungen zu be- 
handeln. 


Umgang mit geschachtelten Bedingungen 


Formal sind voneinander abhängige Entscheidungs- 
strukturen ganz einfach. Hauptsache, man schreibt sie 
übersichtlich auf, nach dem Muster: 


Wenn Bedingung 
dann 
BEGIN 
HandlunglA 
END 
sonst 
BEGIN = 
Handlung2A 
Wenn Beädingung2B 


Empfehlung 


dann Handlung3A 
sonst Handlung4A 
Handlung2C 
END 


Die Tiefe der Schachtelung darf dabei in verschiedenen 
Zweigen unterschiedlich sein. Im Struktogramm splitten 
sich manche Säulen auf, andere nicht: 


IT rn nn mn nn arm nn TI 













Bedingung 
JA 





Hondlung 2A 






Handlung 2B 
JA 







NEIN 





Hondlung 3A 


Handlung 2C 


Bean min ig ——————— id 


Abbildu ng 8-9: Schachtelung im Struktogramm 


Hondlung 4A 







Handlung IA 


Oder betrachten Sie das Beispiel: 


IF Temperatur > 25 


THEN 
BEGIN 
. IF-RegenAngesagt IN [’N’,’n’] 
THEN 
BEGIN 
WriteLn (’ Sachen zum Sonnen zusammenpacken’); 
WriteLn (’' in die Sonne legen 3 
END | 
"ELSE 
" BEGIN 
WriteLn {’'. Sachen zum Baden zusammenpacken ’); 
WriteLn (’' schwimmen gehen '); 
END; ne 
END 
ELSE 
BEGIN 
IF RegenAngesagt IN :[’N’,’n’] 
THEN 
" BEGIN 


WriteLn. (’ zum-Spazierengehen umziehen ’); 
WriteLn (’ fortgehen ’); 


END 
ELSE 
BEGIN 
WriteLn ('zu Hause bleiben’); 
END 
END; 


Skizzieren Sie sich das Struktogramm hierzu. 

Die wichtigste Technik, um die Unübersichtlichkeit 
verwickelter Fallunterscheidungen zu vermindern, ist 
das Prinzip: reichliche Verwendung von Prozeduren, mit 
denen die Bedeutung von Programmabschnitten nach- 
vollziehbar benannt wird. Auch das Beispiel von oben, an 
sich noch relativ kurz und klar, gewinnt an Verständlich- 
keit, wenn Sie die Prozeduren FerienBeiWarmemWetter 
und FerienBeiKaltemWetter einführen, denen Sie dann die 
Detailarbeit überlassen. 


IF Temperatur > 25 
THEN 
FerienBeiWarmemWetter 
ELSE 
FerienBeiKaltemWetter; 


Entscheidungs- und 
Wiederholungsbedingungen 


Der Alltags-Gebrauch von „Wenn” führt beim Program- 
mieren noch bei einer weiteren Situation in die Irre: Zum 
Beispiel hört sich die Aussage: „Wenn etwas falsch gelau- 
fen ist (eine Tastatureingabe war unzulässig), dann muß 
es nochmal gemacht werden (erneut Taste drücken!)” 
ähnlich wie eine Entscheidungsstruktur an. Aber eigent- 
lich soll ja dasselbe wie vorher nochmal versucht werden, 
nicht (bedingt) etwas Neues geschehen. Vor allem ist 
wahrscheinlich gemeint: Solange der Vorgang nicht kor- 
rekt ist, muß er immer wieder durchgeführt werden. 

Ein Programm, in dem sich diese Vorstellung in IF-An- 
weisungen widerspiegelt, müßte theoretisch unendlich 
lang werden - obwohl eigentlich gar nichts Neues pas- 
siert. Die Situation läßt sich also mit IF-Anweisungen 
nicht beschreiben. Nicht alles, was als Bedingung formu- 
lierbar ist, kann vernünftig als eine Entscheidungsbedin- 
gung im Sinne der IF-THEN-ELSE-Anweisung interpre- 


Übersichtlicher 
mit Prozeduren 











tiert werden. Es gibt eine zweite Sorte von Bedingungen, 
die Wiederholungsbedingungen genannt werden könnte. 
Um mit ihr umzugehen, wird eine neue Programmstruk- 
tur benötigt, die Wiederholungsstruktur. Sie bildet das 
Thema des nächsten Kapitels. 


Aufgaben 


1. Stellen Sie die IF-Anweisung mit Hilfe eines Syntax- 
diagramms dar. M 

2. Versuchen Sie, ein Syntaxdiagramm für einen Bedin- 
gungsausdruck zu entwickeln. | 

3. Schreiben Sie das im letzten Beispiel angedeutete 
„Ferienratgeberprogramm” zu Ende.. 

4. Hier ist noch einmal der Gleisplan des Bahnhofs 
„Juttlingen”: 


_ m — 1 —: 17. - —n "ot 22 TREE Am a 20. .ne | a ar 


-5 Gleis a 
- Gleis b 
Gleis c 


Abbildung 8-10: Gleisplan von Tuttlingen ' 
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i 
| 
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Jetzt programmieren Sie die Weichenstellungen: Wo 
die Lok, die gerade auf Gleis c ankommt, letztlich landet, 
hängt von der Stellung der zwei Weichen ab. Schreiben 
Sie erst ein kleines Programm, bei dem die Stellung der 
Weichen eingegeben werden kann und daraus das Ziel- 
gleis ermittelt wird. Zeichnen Sie den zugehörigen PAP 
und das Struktogramm. Erweitern Sie Ihr altes Zugpro- 


me A gm nn 











Eingode des ersten Wortes 


Eingobe des zweiten Wortes 


Summieren der Wortlängen 


Summe < 65 
JA 







Cirser 


Writeln (Wort!) 
Writeln (Wort, ' *, Wort2) Writeln (Wort2) 


Abbildung 8-11: Aufgabe: Zeichnen Siedas Struktogramm als PAP. 





Aktiongr 2 ] [ Ationer 4 [_Artionar 5 } 
| t 
[_Arionar 3 ] [toner 6) 


Antionär 7 ! 


( stoPr ) 


Abbildung 8-12: Aufgabe 6a): Zeichnen Sie den PAP als Strukto- 


gramm. 


gramm so, daß die Lok auch auf dem Bildschirm richtig 
über die Weichen fährt. 

5. Versuchen Sie zu erklären, was das durch das Struk- 
togramm in Abb. 8-11 dargestellte Programmstück 
„macht”. Zeichnen Sie den zugehörigen PAP. 

6. Zeichnen Sie Struktogramme, bei denen das Pro- 
gramm dasselbe macht wie bei den PAPs in Abb. 8-12 und 
8-13. Dabei, dürfen beziehungsweise müssen eventuell 
Anweisungen im Struktogramm mehrfach verwendet 
werden - ein weiterer Anlaß, mehrfach vorkommende 
Anweisungsfolgen in Prozeduren zu verpacken. 


| Aktionär 1 ] 







Bedingung 2 





Aktıondr 2 


Aklıondr 3 


| Aktiondr 4 | Aklıonör 5 





4 


Abbildung 8-13: Aufgabe 6b): Zeichnen Sie den PAP als Strukto- 
8 ram. 


„Verweile doch, 
du bist so schön“ 
Goethe, Faust 


9 Wiederholungs- 
struktur und . 
boolesche Variable 


Der verpönte Sprung zurück - Die WHILE-Anwei- 
sung - Initial- und Finalzustände der Schleife - 
Boolesche Kontrollvariable für die Schleife - 

Die Verarbeitung des Zufalls - Ein kleines Würfel- 
spiel - Simulation eines Ökosystems - Aufgaben 


Die Programmstruktur, die den Computer zur wieder- 
holten Durchführung einer Aktion veranlaßt, heißt in der 
Programmiertheorie Wiederholungsstruktur. Gemein- 
sam mit der einfachen Sequenz (Folge) und der Entschei- 
dungsstruktur bestückt sie den Baukasten für die Gestal- 
tung des Programmablaufs im Kleinen. 

Von den dreien ist die Wiederholungsstruktur das 
mächtigste und kritischste, mit ganz besonderer Vorsicht 
zu handhabende Mittel: Denn wehe, die vielen Schritte 
nehmen die falsche Richtung. Die Grafik symbolisiert die 
Wiederholungsstruktur als eine Kreisbewegung, die aber 
nur ein notwendiges und kontrolliertes Verweilen an ei- 
nem Punkt des - vorwärts zielenden - Programmflusses 
bilden darf: 





Der verpönte Sprung zurück 


Eigentlich ist nichts leichter, als den Computer dazu zu 
bringen, eine oder mehrere Anweisungen wiederholt 
auszuführen. Stellen Sie sich das Programm als eine Kette 
von Anweisungen vor. Soll ein Abschnitt nochmal durch- 
gegangen werden, so muß nur hinter seiner letzten An- 
weisung zurück zu seinem Anfang gesprungen werden. 
Was dabei entsteht, wird anschaulich Programmschleife 


genannt. Im Regelfall darf die Schleife aber keine Endlos- - 


schleife sein, die nur durch einen äußeren Programmab- 
bruch, im Extremfall mittels Stromentzug, gestoppt wer- 
den kann. Es muß einen ordentlichen Schleifenausstieg 
geben. Im klassischen DIN-Ablaufdiagramm wird eine 
Verzweigung verwendet, um einen sogenannten beding- 
ten Sprung zurück zum Anfang der Schleife zu program- 
mieren: Die Anweisung_X wird immer wieder durchlau- 
fen, bis eine Bedingung (nicht mehr) erfüllt ist. 

Auf Maschinenebene funktioniert letztlich eine Wie- 
derholungsstruktur immer in dieser oder einer ähnlichen 
Form. | | 

Auch in den älteren Programmiersprachen wird nach 
diesem Schema verfahren. Um eine Schleife zu bauen, 
würden Sie dort eine Sprunganweisung verwenden, die 
in der Regel mit dem Wort GOTO gebildet wird. (GOTO 
für „Gehe zu“, nicht zu verwechseln mit der Anweisung 









| 
| 
I 


1 
‘ 
| 
# 





Anweisung X 


(wiederholt auszuführen) 


| 
| 
| 


Abbild ung 9-2: Wiederholung durch bedingten Sprung zurück 


GOTO 


Wiederholungsstruktur | 


GoToXY, die nur für gezielte Bewegungen auf dem Bild- 
schirm zuständig ist.) 

“ Diese Sprunganweisung besitzt eine archaische Mäch- 
tigkeit, die nicht durch Regeln und Vorschriften einge- 
grenzt ist. Denn in der klassischen Form kann mit 


" Sprunganweisungen die Kette der Programmanweisun- 


118 


gen beliebig vernetzt werden. Mit GOTO kann man vor- 
wärts, rückwärts, seitwärts springen, den Programmfluß 
hin- und zurückwenden sowie zwei Programmlinien ei- 
ne Strecke lang ineinander flechten und dann versuchen, 
sie wieder zu trennen. Anstelle einer klar zu verfolgenden 
Linie des Programmablaufs entsteht ein vielfach verkno- 
tetes System von Anweisungsreihen. Es ist nicht beson- 
ders aufwendig, mit Hilfe von GOTO-Anweisungen ein 
Programm zu schreiben, das keine außenstehende Per- 
son, ja mit einiger Wahrscheinlichkeit nicht einmal mehr 
sein Autor versteht. 

Das Beispiel für den Spaghetti-Code aus dem letzten 

Kapitel können Sie noch als harmlosen Fall betrachten. 
Das Riskante an so einem Code ist, daßein Teil der Sprün- 
ge zurück führt. Seiten- und Vorwärtssprünge sind für 
sich nicht so problematisch, weil sie den Programmablauf 
nicht verlängern und nicht in Wiederholungen hinein- 
führen. Sie können sich aber böse Fallen bereiten, wenn 
Sie bei Sprüngen (die übrigens mit mehr oder weniger 
starken Einschränkungen in Pascal sogar zugelässen 
sind) die Übersicht verlieren. GOTO ist gefährlich, weil 
Sie den Befehl einfach lokal an irgendeine Stelle setzen 
können, er aber globale Auswirkungen auf einen ganzen 
Zusammenhang von Anweisungen hat. In den heutigen 
Programmiersprachen verwendet man GOTO nur unter 
ganz bestimmten Umständen. In der Regel werden für 
spezielle Situationen eigene, eingegrenzte Anweisungs- 
arten verwendet. In Pascal können Sie Strukturen aufbau- 
en, mit denen eine Wiederholung ohne ausdrücklichen 
Rücksprungbefehl möglich ist. 


Die WHILE-Anweisung 


Bemerken Sie, daß ein Abschnitt des Programms, unmit- 
telbar nachdem er ausgeführt wurde, in mehr oder weni- 
ger identischer Form noch ein oder mehrere Male benö- 
tigt wird, so identifizieren Sie ihn in Pascal als einen 
einzigen, komplexen Vorgang. Dieser ist - in einer 


| Die WHILE-Anweisung 


'Wiederholungs-— 
struktur 





Abbildung | 9-3: Struktogranm für die Wiederholungsstruktur mit WHILE 


„Schleife“, einer Wiederholungsstruktur - solange durch- 
zuführen, bis ein vorgegebener Zielzustand erreicht ist. 
Im Hauptfluß des Programms steht nur die Anweisung, 
daß das Schleifenziel angestrebt wird. Ihr untergeordnet, 
durch sie begrenzt und kontrolliert, spielt sich die Wie- 
derholung der inneren Anweisungsfolge ab. 

Dieser Gedanke drückt sich im Struktogramm so aus, 
daß der Kontrollteil der Wiederholungsstruktur außen 
durchläuft, während die zu wiederholende Aktion einen 
eigenen, inneren Kasten (beziehungsweise eine innere, in 
Einzelrechtecke unterteilte Säule) bekommt. Im abgebil- 
deten Schema gilt als zweite Anweisung des Programm- 
flusses die Wiederholungsstruktur insgesamt. - 

Dem Struktogramm für eine Solange- oder WHILE- 
Schleife entspricht nicht ganz der PAP von oben, sondern 
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Abbildung 9-4: PAP zur Wiederholungsstruktur mit WHILE , 


Wiederholungsstruktur | 


Was passiert 
bei einer 
WHILE-Anweisung? 


ein PAP, bei dem die Verzweigüng mit der Frage „ob es 
nochmal geschehen soll” vor den betreffenden Anwei- 
sungen steht. | 

Der Ablaufplan zeigt, was geschieht: Zuerst prüft der 
Computer die Wiederholungsbedingung. Ist sie erfüllt, 
wird Anweisung_X ausgeführt, andernfalls zu Anwei- 
sung_3 weitergegangen. Nach der Abarbeitung von Ar- 
weisung_X springt der Programmfluß zurück zur erneu- 
ten Abfrage der Wiederholungsbedingung. 

Der PAP gibt den tatsächlichen Ablauf der Computer- 
aktionen-genau wieder. Aber er drückt mit keinem spe- 
ziellen Symbol aus, welche Schleifenstruktur gemeint 


sein soll (bei einem konkreten Programm ist die Struktur 


£ Schema der 
WHILE-Anweisung 


Anweisung_1l; 


in der Regel nicht so deutlich wie bei der Schemazeich- 
nung). Die Verzweigung können Sie in den PAP setzen, 
sogar wenn Sie noch nicht wissen, ob Sie eine Entschei- 
dungs- oder auf eine Wiederholungsstruktur bauen wol- 
len. Jede Unklarheit führt aber zu fehlerhaften Program- 
men. | 

In Pascal wird die in den Diagrammen dargestellte Pro- 
grammstruktur mit einer WHILE-Anweisung erzeugt, 
die schematisch lautet: 


WHILE Bedingungsausdruck DO 
("Solange ... tue". Solange die Bedingung, 
die hier steht, wahr ist, 
wird in der Schleife verweilt.} 


BEGIN 
Anweisung_X; 
END; 
Anweisung_3; 


{Eine oder mehrere Anweisungen} 


Ähnlich wie im THEN- und ELSE-Teil der IF-Anwei- 
sung darf der BEGIN-END-Rahmen hinter DO fehlen, 
wenn keine längere Anweisungsfolge, sondern nur eine 
Einzelanweisung wiederholt werden soll. 

Das englische WHILE erinnert schon im Klang an das 
verwandte deutsche Wort „Verweilen” und trifft damit 
auch die Bedeutung ‚an einer Stelle bleiben, bis die Sache 


“erledigt ist“. Statt auf das Springen zwischen Einzelan- 


weisungen ist das Augenmerk auf. den Wiederholungs- 
vorgang als ganzes gerichtet. Anders ausgedrückt: Die 
WHILE-Anweisung erzwingt im Gegensatz zu GOIO 
beim Niederschreiben eine globale Sicht. 


Ein Beispiel zur WHILE-Anweisung 


Betrachten Sie nochmal das Beispiel mit dem Alkohol- 
spiegel im Blut. Das folgende Programm stellt den zeitli- 
chen Verlauf des Promillewertes dar. Es beruht dabei auf 
der Abschätzung, daß pro Stunde etwa 0,1 Promille abge- 
baut wird. Solange der Wert noch nicht unter 0,1 gefallen 
ist, spürt man noch die Auswirkungen des vergangenen 
Abends: Man verweilt sozusagen noch im Kater. Der BE- 
GIN-END-Rahmen um den Aufruf der Prozedur Kater ist 
an sich überflüssig, da zum DO keine weitere Anweisung 
gehört. | 


PROGRAM AlkoholAbbau; 


USES crt, printer; 


CONST 
PromilleGrenze.= 0.8; 
Abbaurate = 0.1; 

VAR 
AnfangsPromillewWert : Real; 
RestPromilleWert : Real; 
VerstricheneStunden : Integer; 


PROCEDURE Kater; 
BEGIN 
ClrScr; 
GoToXY (1,24); 
WriteLn (’Bitte mit der Taste Return’); 
WriteLn (’den Ablauf einer Stunde bestätigen. ’);- 
GoOToXY (1,3); 
Writeln (’---------=----- - --- -7---- -- - -====-- - - - -- --- --- 2) 
IF RestPromilleWert > Promillegrenze 
THEN 
BEGIN 
WriteLn ('Keinesfalls Auto fahren! ’); 
WriteLn ({’Restalkohol in Ihrem Blut: ’ 
‚RestPromilleWwert:4:1, ‘ Promille’) 
END 
ELSE 
WriteLn (‘Lieber kein Auto fahren (noch’ 

\ ‚ResetPromilleWert :4:1, ’' Promille).'); 
WriteLn (’------- ERNST een ESS '); 
WriteLn (’Anzahl der verstrichenen Stunde (n): e 

VerstricheneStunden, ° Stunden’); 


Wiederholungsstruktur | 


ReadlLn: z. 
VerstricheneStunden := VerstricheneStunden + 1; 
RestPpromilleWert := RestPromilleWert - Abbaurate; 


END (* von Kater *); 


BEGIN (* von Hauptprogramm *) 
ClrScr; 
WriteLn 
("Dieses Programm ermittelt den Alkoholabbau pro Stunde.”); 
WriteLn; ee 
Write (’Geschätzter Promille-Wert an diesem Abend: ’); 
ReadLn (AnfangsPromillewWert); 
Writeln; 
VerstricheneStunden := 0; 
RestPromilleWert := Anfa ngsPromilleWert; 
WHILE RestPromilleWert >= 0.i DO 
BEGIN 
Kater; 
END; 
ClrScr; 
GoToXY (1,10); 
WriteLn (’Erst nach ’, VerstricheneStunden, 
‘ Stunden liegt Ihr Blutalkoholspiegel’); 
WriteLn (’wieder unter 0.1 Promille.’); 
END. 
Empfehlung Die Struktogramme zu diesem Beispiel sind getrennt 
zur Struktogramm- für Hauptprogramm und Prozedur gezeichnet. Bei Ver- 
Gestaltung wendung von Prozeduren ist es sinnvoll, jedes Strukto- 
gramm zu rahmen und oben in den Rahmen den Namen 
der Prozedur beziehungsweise „Hauptprogramm“ ein- 


Hauptprogromm 


| 

Eingobe von AnfongsPromilleWert | 

* VerstricheneStunden : | 
RestPromillewert := AnfangsPromilleWert 


solange RestPromilleWert >= 01 





| 
| 
zer, 
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zutragen. Außerdem sollte ein Prozeduraufruf von einer 
einfachen Anweisung durch eine besondere Kästchen- 
form unterschieden werden (zum Beispiel mit einem seit- 
lichen Doppelstrich). 


Initial- und Finalzustände 
einer Schleife 


Zur Abwechslung nun ein kleines Beispiel aus dem Le- 
ben eines fliegenden Händlers. Die Variablen Erloes und 
TagesEinnahme sollen als Real vereinbart sein. Die Proze- 
dur VerkaufEinerWare wird definiert durch: 


PROCEDURE VerkaufEinerWare; 

BEGIN 
WriteLln; 
WriteLn (’Verkaufen Sie noch etwas!’); 
WritelLln; 
Write (’Sie erhalten hierfür DM ’); 
ReadLn (Erloes); 
TagesEinnahme := TagesEinnahme 

+ Erloes; 
END (* von VerkaufEinerWare *); 


Der folgende Abschnitt aus dem Programm Haendler- 
Tag bedeutet, daß der Verkauf so lange weiter laufen muß, 
bis die Tageseinnahmen mindestens DM 1000 betragen. 


er me m u nn PU — m ers m ——— mn nun 5 


Ausgabe VerstricheneSlunden 
Ausgobe RestPromitleWert | 


RestPromillewert > PromilleGrenze | 
JA NEIN 


Anzeige Anzeige 
keinesfalls Auto fahren’ 'heber nicht Auto fahren’ 


Eingobe [Return] 
VerstricheneStunden := VerstricheneStunden + 1 


] RestPromilleWert := RestPromilleWert — Abbouralc 5 





Abbild ung 9-6: Struktogramm „Kater“ 


Wiederholungsstruktur‘ | 


Schleife 
initialisieren 


Finalzustand (Ziel- 
zustand) definieren 
und erreichbar 
machen 


TagesEinnahme := 0; 
WHILE TagesEinnahme < 1000 Do 
VerkaufEinerWare; 
WriteLn; 
WriteLn (’Endlich 1000 DM beisammen ’, 
’genau sogar DM ’, 
TagesEinnahme:8:2); 


Zu einer Schleife gehört ein bestimmter Anfangs- oder 
Initialzustand. Es muß dafür gesorgt werden, daß.eine 
oder mehrere Variablen auf die Werte gesetzt werden; 
welche die Grundlage für die Tätigkeit der Schleife bilden. 
Ir letzten Beispiel wurde TagesEinnahme der Anfangs- 
wert 0. zugewiesen. Beim Programm Alkoholabbau mußte 
vor der Schleife dafür gesorgt werden, daß RestPromille- 
Wert am Anfang den zutreffenden Wert enthält und Ver- 
stricheneStunden bei 0 zu zählen beginnt. Vergessen Sie die 
Initialisierung, so produziert die Wiederholungsstruktur 
falsche oder gar keine Ergebnisse, verweigert ihre Dienste 
oder verfängt sich in einer Endlos-Schleife. . _ 

Zweitens soll der End- oder Finalzustand einer Schleife 
klar definiert sein. Das weitere Programm kann dann auf 
der zuverlässigen Grundlage arbeiten, daß bei Abschluß 
der Schleife dieser Zustand vorgelegen hat. In den beiden 
Beispielen sind die Endzustände durch einfache Bedin- 
gungen charakterisiert, die (beziehungsweise deren logi- 
sche Umkehrung) direkt im Bedingungsausdruck der 
WHILE-Anweisung stehen: Tageseinnahme >= 1000 und 
RestPromilleWert < 0.1. Häufiger kommt es aber vor, daß 
die mit der Schleife angestrebten Ziele nicht so einfach zu 
beschreiben sind. Dazu gleich mehr. 

Drittens darf die Schleife nicht zur Endlosschleife wer- 
den: Der Endzustand muß erreichbar sein. Die Anwei- 
sungen in der Schleife müssen gewährleisten, daß der 
Anfangszustand tatsächlich schrittweise in den Endzu- 
stand überführt wird. 

Natürlich passiert manchmal ein’Malheur, weil Um- 
stände vergessen werden, die mindestens unter gewissen 
Bedingungen verhindern, daß das Ziel erreicht wird. Ein 
armer Händler könnte zum Beispiel von der Nacht über- 
rascht werden, bevor er sein Tagespensum geschafft hat. 
Erweitern Sie deshalb das Handelsprogramm um die 
Kontrolle der Uhrzeit. | 


Boolesche Kontrollvariable 
für die Schleife 


Endzustand der Schleife des Programms soll jetzt sein, 
daß entweder (das eigentlich gewünschte) Ziel einer Ein- 
nahme von mehr als 1000 DM erreicht ist oder eine Inte- 
ger-Variable (der Einfachheit halber nur für die volle) 
Stunde den Wert 18 Uhr angenommen hat. Sie können 
dann einen Bedingungsausdruck aus den beiden Einzel- 
bedingungen zusammenstellen. 

Aber Vorsicht, die Bedingung, die bei WHILE steht, be- 
schreibt nicht den Endzustand, sondern gibt an, wann die 
Schleife weiterlaufen muß. Der Händler muß so lange 
weiterarbeiten, wie es noch nicht 18 Uhr ist und er noch 
keine 1000 DM erwirtschaftet hat. 


TagesEinnahme := 0; 
Stunde = 8; 


WHILE (TagesEinnahme < 1000) AND (Stunde < 18) DO 
BEGIN 
VerkaufEinerWare; 
Write (’Uhrzeit (Stunden): ’); 
ReadLn (Stunde); 
END; 
Writeln; 
IF TagesEinnahme >= 1000 
THEN 
WriteLn ('’1000 DM beisammen, genau DM ’, TagesEinnahme:8:2) 
ELSE | 
WriteLn (’Kein Verkauf mehr möglich, Einnahme DM ', 
TagesEinnahme :8:2); 


Formal kann die Bedingung dafür, daß die Schleife Formale Ableitung der 
weiter arbeiten soll, durch die logische Umkehr (die Ne- Schleifenbedingung 
gation oder Verneinung) einer Finalbedingung gewon- 
nen werden. Der Händler hört auf, wenn: 


(TagesEinnahme >= 1000) OR (Stunde >= 18) 


Statt sich selbst zu überlegen, daß-er demzufolge weiter- 
macht, solange 


(TagesEinnahme < 1000) AND (Stunde < 18) 


können Sie diese Mühsal auch dem Pascal-System über- 
lassen und einfach schreiben: 


Wiederholungsstruktur | 


NOT ((TagesEinnahme >= 1000) OR (Stunde >= 18)) 


Boolean und 
die Alltagslogik 


Pascal gibt Ihnen ein Mittel in die Hand, mit dem sich 
in komfortabler Weise nahe an der Alltagslogik program- 
mieren läßt. Es sind die booleschen Variablen, die nur den 
Wert true oder false annehmen können. In anderen Pro- 
grammiersprachen, die diese Variablentypen nicht ken- 


| nen, könnten Sie stattdessen eine Signalvariable (Flag) 


nehmen und würden sie auf 1 beziehungsweise 0 setzen. 
Mit booleschen Variablen können Sie Schleifen ohne 


‚großen formallogischen Aufwand steuern. Indem Sie da- 


bei nahe am Alltagsverständnis einer Situation bleiben, 
wird Ihr Programm überschaubar und nach menschli- 


chem. Ermessen korrekt werden. Konkret: Sobald .die 


Endbedingungen einer Schleife komplizierter werden, ist 
es dringend zu empfehlen, in einer eigenen booleschen 


. Variable eine Notiz anzulegen, ob der Finalzustand er- 


reicht ist. Diese Notiz muß immer auf den aktuellen 


‚Stand ‚gebracht werden. Das erweiterte Händlerpro- 
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gramm gewinnt zum Beispiel durch die Einführung einer 
booleschen Variable MussNochArbeiten erheblich an Klar- 
heit. Die Schleifenkontrollvariable wird als Abschluß der 
Initialisierung auf „Finalzustand nicht erreicht“ gesetzt. 
Bei jedem Schleifendurchlauf wird ven ‚ob die End- 
bedingung eingetreten ist. 2 

Weil die Variable Muss Nochärkeiken. selbst einen je: 
schen Wert enthält, ist sie schon für sich ein Bedingungs- 
ausdruck und kann hinter‘ WHILE alleine stehen (Muss- 
Noch Arbeiten = true würde dasselbe scan) 


TagesEinnahme ı= 0; 
Stunde = Br 
MussNochArbeiten := true; 


WHILE MussNochArbeiten DO 


BEGIN 
VerkaufEinerWare; 
IF TagesEinnahme >= 1000 
THEN MussNochArbeiten := false 
ELSE 
BEGIN 


Write (‘Uhrzeit (Stunden): °); 
ReadLln (Stunde); 
IF Stunde >= 18, | 
THEN MussNochArbeiten := false; 
END; 


END; 
WriteLln; 
IF TagesEinnahme > 1i000 
THEN 
WriteLn (’1000 DM beisammen, genau DM ’, 
ELSE 


| Verarbeitung des Zufalls 


TageskEinnahme:8:2) 


WriteLn (’Kein Verkauf mehr möglich, Einnahme DM ’, 


TagesEinnahme:8:2); 


Zeichnen Sie sich das Struktogramm zu diesem Pro- 
gramm! Sie haben hier wieder eine Entscheidungsstruk- 
tur im Innern einer Wiederholungsstruktur. 

In der neuen Form des Programms können die ver- 
schiedenen Situationen, unter denen der Schleifenab- 
bruch erfolgt, genauer erfaßt werden. Zum Beispiel 
braucht die Uhrzeit gar nicht mehr festgestellt werden, 
wenn das Geld beisammen ist und die Arbeit schon des- 
halb gestoppt werden kann. Außerdem müssen Sie sich 
auf der Kontrollebene der Wiederholungsstruktur nicht 
mit den Details des Inneren befassen. Die Abbruchbedin- 
gungen könnten sich ja noch viel verwickelter gestalten. 
Zahlreiche weitere Variablen könnten mitspielen, auch 
die richtige Folge ihrer Werte könnte entscheidend sein. 
All diese Informationen brauchen nicht auf die äußere 
Ebene getragen zu werden. Sie stören und verwirren nur, 
wo es bloß auf das Ergebnis, „Schleife soll weiterlaufen“ 
oder „Schleife soll nicht weiterlaufen”, ankommt. 

Der Rest des Kapitels benutzt die Schleifenprogram- 
mierung, um mit dem Computer etwas Schicksal zu spie- 
len. 


rg 


Die Verarbeitung des Zufalls 


Eine seiner wichtigsten Anwendungen findet der Com- 
puter in einem Bereich, in dem in gewissem Sinn der Zu- 
fall regiert: in der Simulation von Prozessen, die statisti- 
schen Gesetzen gehorchen. Simuliert werden solche 
Prozesse, weil es zu aufwendig, zu teuer, zu gefährlich 
oder ganz unmöglich wäre, sie in der Wirklichkeit zu be- 
obachten. Wesentliches Element dessen, was sich bei ih- 
nen wiederholt, ist ein zufälliges Ereignis wie der Fall ei- 
nes Würfels. | | | 


Wiederholungsstruktur | 


Würfelsimulation Vor einem Wurf weiß man nicht, welche der sechs 
mit Random Würfelseiten nachher oben liegt. Man kann aber davon 
ausgehen, daß jede Würfelseite die gleiche Chance hat, 
nach oben zu kommen. Das läßt sich sogar in Zahlen aus- 
drücken: Man sagt, 1/6 (oder 16.66 Prozent) beträgt die 
Wahrscheinlichkeit, daß beim Würfeln zum Beispiel die 5 

herauskommt. 

‚Die Grundlage für alle Simulationen mit dem Compu- 
ter sind spezielle Hilfsfunktionen, die zufällige Werte aus 
einem Spektrum gleich wahrscheinlicher Zahlen abrufen. 
Zum Beispiel imitieren Sie einen Würfel mit einer Proze- 
dur, die Ihnen mit gleicher Wahrscheinlichkeit Zahlen 
zwischen 1 und 6 liefert. In Turbo-Pascal gibt es zur Er- 
zeugung zufälliger ganzer Zahlen die Funktion Random 
(englisch für „Zufall”), hinter der in runden Klammern 
die Länge des (bei 0 beginnenden) gleich wahrscheinli- 
chen Zahlenspektrums steht. Die Länge vermindert um 1 
ergibt dann die maximal herauskommende Zahl. Zum 
Beispiel steht Random (6) für einen zufällig aus O bis 5 her- 
ausgegriffenen Wert. | 

Mit Hilfe dieses zufälligen Wertes können Sie sich eine 
Prozedur zum „Würfeln” einer Zahl schreiben. Da Sie für 
einen Würfel nicht Zahlen zwischen 0 und 5, sondern 
zwischen 1 und 6 brauchen, verschieben Sie das von Ran- 
dom (6) produzierte Spektrum durch die Addition von 1. 
Wuerfelzahl ist dabei eine im Hauptprogramm deklarierte 
Integer-Variable. | 


PROCEDURE Wuerfeln; 
BEGIN 
Wuerfelzahl := Random (6) + 1; 
END {* von Wuerfeln *); 


Die Random-Funktion wird auch ein Zufallsgenerator 
oder eine Zufallsfunktion genannt. Im Gegensatz zu Zu- 
fallsgeneratoren, die ihre Zahlen aus statistisch-physika- 
lischen Vorgängen, zum Beispiel Molekülbewegungen, 

. ‚gewinnen, kornmen die von Random produzierten Werte 
nicht.wirklich zufällig zustande, sondern werden durch 
ein .ausgetüfteltes Verfahren berechnet. Solche Zahlen 
‚heißen deshalb auch Pseudo-Zufallszahlen.: Tatsächlich 
nicht vorherbestimmt ist hierbei eigentlich nur, welchen 
Wert man innerhalb der eindeutigen Abfolge als ersten 
erwischt. Um Programme besser testen zu können, kann 
diese Stelle (ab Turbo 4.0) fixiert werden. Umgekehrt kön- 
nen Sie auch verhindern, daß ein Programm immer wie- 
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der an derselben Stelle der Zahlenfolge beginnt: Ein Auf- 
ruf der vordefinierten Prozedur Randomize (randomisie- 
ren, „zufällig machen“) wirft die Zahlenfolge in nicht 
kontrollierbarer Form durcheinander. 


Ein kleines Würfelspiel 


Als kleines Spiel können Sie mit der Prozedur Wuerfeln 
eine Art Wettrennen zwischen zwei Partnern, genannt A 
und B, programmieren: Beide würfeln abwechselnd be- 
ziehungsweise lassen den Computer würfeln. Wer zuerst 
30 Punkte erreicht, hat gewonnen. 30 ist als Konstante 
Ziel definiert, außer Wuerfelzahl gibt es SumnmieA und Surm- 
meB als Integer-Variablen, SpielLaeuft ist die boolesche 
Schleifenkontrollgröße. Das Hauptprogramm könnte 
dann so aussehen: 


PROGRAM Wuerfelspiel; 
USES crt, printer; 


CONST 
ziel = 30; 
SpalteA 
SpalteB 
SpalteInfo 


l 
N. 
= 


a2; 
15: 


N 


VAR 
Wuerfelzahl : Integer; 
SummeA, SummeB : Integer; 
SpielLaeuft : Boolean; 


PROCEDURE ProgrammErklaeren; 
BEGIN 
ClrScr; i 
WriteLn; 


| Kleines Würfelspiel 


WriteLn (’Herzlich willkommen zum würfelspiel!’); 


WriteLn ("Anzahl der Mitspieler: 2’); 
WriteLn “ 


("Spielregel: Gewonnen hat, wer zuerst :30 Punkte erwürfelt.’); 
Write (’Start und Abschluß des Wurfes mit der Taste’, 


’[RETURN].’); 
Writein; 


Write (’--------- --------- - == ---- - - -o- 


WriteLn; PR 
WriteLn; 
END; 


nn en 
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PROCEDURE Wuerfeln; ee 
BEGIN 
wuerfelzahl := Random (6) + 1; 
END (* Wuerfeln *); 


PROCEDURE ErgebnisMitteilung; 


BEGIN 
WriteLln; 
WriteLn {’ ——— N, 
"Ergebnis ——— 1); 
WriteLn; 
IF (SummeA >= Ziel) AND (SummeB >= Ziel) 
THEN 
BEGIN | 
WriteLn (’Unentschieden, weil A und B in der '); 
Writeln ("gleichen Runde über 30 gekommen sind!’) 
ee | 
ELSE {A oder B hat Ziel nicht erreicht.) 


BEGIN 
IF SummeA >= Ziel 
{Hat A das Ziel 30 erreicht?} 


THEN 
WriteLn (Spieler(in) A hat gewonnen! ’) 
ELSE °" {Wenn A nicht am Ziel, ‚muß B angekommen ' 


sein, sonst: würde das- Spiel’ noch laufen.) 
WriteLn (’Spieler(in) B hat gewonnen! ’); 
END; 
End; {* Ergebnismitteilung *) 


BEGIN (* KleinesWuerfelspiel *) 
ProgrammErklaeren; 
ReadLn; 
SummeA := 0; 
SummeB := (0; 2 


SpielLaeuft. := true; 

Randomize; 

ClrScr; 

WHILE SpielLaeuft DO ! 
BEGIN 


GoToXY (SpalteInfo,24); 

WriteLn {('Bitte die Taste [RETURN] drücken! ’); 
GoToXY (SpaltelInfo,B); 

Write (’An der Reihe ist Spieler(in): A’); 
GoToXY (SpalteA+20,9); 

ReadLn; 

Wuerfeln; 
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SummeA: = SummeA + Wuerfelzahl; 
GoToXY (SpalteA,2); 


Write (’Gewürfeit ; ’, Wuerfelzahl); 


GoToXY (SpalteA,4); 


Write ("Summe Spieler{in) A: ‘, SummeA : 3); 


GoToXY (Spaltelnfo,8); 


Write (‘An der Reihe ist Spieler(in): B’); 
GoToXY (SpalteB+20,9}; 

ReadLn; 

Wuerfeln; 

SummeB := SummeB + Wuerfelzahl; 

GoToXY (SpalteB, 2); 

Write (’Gewürfelt : ’, Wuerfelzahl); 


GoToXY (SpalteB,4); 


Write (’Summe Spieler(in) B: ’, SummeB : 3); 


IF (SummeA >= Ziel) OR (SummeB >= Ziel) 


THEN SpielLaeuft := false; 
END; 
ClirScr; 
ErgebnisMitteilung; 
END. 


Das Programm zeigt die für viele EDV-Anwendungen 
typische Verwendung einer Summenvariablen im Zu- 
sammenhang mit einer Schleife. Die Variable wird vor Be- 
ginn der Schleife, in der Schleifeninitialisierung, auf 0 ge- 
setzt. Nach der Schleife steht auf der Variablen dann die 
Gesamtsumme der Werte. 


Simulation eines Ökosystems 


Zum Schluß des Kapitels noch ein kleines Programm, das 
die Wirkungen des Einsatzes von Pestiziden statt in der 
Wirklichkeit versuchsweise im Modell eines Ökosystems 
simuliert. Das Modell muß ein vernetztes System abbil- 
den, in dem die Änderung einer Größe oft unüberschau- 
bare Rückwirkungen auf andere Größen hat. 

Zugrunde gelegt wird ein abgewandeltes „Räuber- 
Beute-Modell”: Ein landwirtschaftlicher „Schädling“, 
zum Beispiel die Spinnmilbe, pflanzt sich miteiner hohen 
Geburtenrate fort. (In der Natur selber kann man nicht 
nach „Schädlingen“ und „Nützlingen” sortieren. Der Be- 
griff findet nur der Einfachheit halber Verwendung). Eine 
zweite Tierart, zum Beispiel Raubmilben, ernährt sich 


Summenbildung 
in einer Schleife 


Qualitative 
Modellvorstellung 


Wiederholungsstruktur | 


Abbildung 9-7: Ein Ökosystem strebt ins Gleichgewicht. 
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77 Schädlinge 


„räuberisch”, weil sie Schädlinge frißt. Siekann daher um 
so mehr Nachkommen aufziehen beziehungsweise er- 
zeugen, je zahlreicher es den Schädling gibt. Unter natür- 
lichen Bedingungen stellt sich in der Regel ein Gleichge- 
wicht ein: Wird die Schädlingspopulation zu groß, 
vermehren sich auch die von ihr lebenden Räuber stark. 
Wenn sie die Beute dezimiert haben, wird ihre Nachkom- 
menschaft kleiner, so daß ein Teil der Schädlinge übrig 
bleibt. Damit ist der künftige Bestand der Räuber garan- 
tiert. Insgesamt pendelt sich ein ungefähres Gleichge- 
wicht zwischen den beiden Tierarten ein. 





Rüuber 


Greift der Mensch mit der Anwendung eines Giftes ein, 
das zunächst beide Tierarten gleichmäßig trifft, so erho- 
len sich die Schädlinge aufgrund ihrer hohen Vermeh- 
rungsrate sehr viel schneller als die Räuber, die eventuell 
sogar ganz ausgerottet werden. Solche modellhaften Zu- 
sammenhänge versucht das Simulationsprogramm 
quantitativ wiederzugeben. Der Sinn einer Simulation 
besteht indessen weniger in einer exakten, quantitativen 
Voraussage - dazu stecken viel zu viele idealisierte An- 
nahmen im Programm. Mit Hilfe eines solchen Pro- 
gramms läßt sich aber die Rolle verschiedener Einfluß- 
größen (den sogenannten Parametern des Modells, die im 
Programm durch Konstanten dargestellt sind) untersu- 
chen: Vermehrungsraten, Revierdichten der Räuber etc. 


Im folgenden Programm wird angenommen, daß ein 
abgegrenztes Gelände vorhanden ist, das aus einer be- 
stimmten Zahl (AnzahlReviere) von Räuberrevieren be- 
steht. Die S-Tiere (die „Schädlinge”) verteilen sich gleich- 
mäßig über die Reviere (so daß jedes R-Tier im 
wesentlichen die Zahl von SImRevier = BestandS / Anzahl- 
Reviere als potentielle Opfer hat). Nicht jeder Versuch ei- 
nes R-Tiers, ein Beutetier in seinem Revier zu erwischen, 
gelingt. Nur mit der allerdings ziemlich hohen Erfolgs- 
wahrscheinlichkeit ist dem Räuber das Jagdglück hold. Au- 
ßerdem startet ein R-Tier höchstens MaxinaleJagdzahl Ver- 
suche am Tag, ein S-Tier zu fangen. Wenn die Zahl der 
Schädlinge sehr hoch ist, liegt daher die Zahl SGejagtIm- 
Revier (der tatsächlich gejagten) unter der Zahl der vor- 
handenen S-Tiere, von denen dann viele unbehelligt blei- 
ben. Die Schädlinge haben eine feste VermehrungsrateS 
pro Tag. Die Räuber können je verzehrtem S-Tier einen 
Nachkommen erzeugen. Bei Anwendung des Pestizids 
schrumpfen beide Tierpopulationen mit dem selben Fak- 
tor, dem Ueberlebensfaktor. 

Das ganze Modell ist natürlich in vielen Einzelheiten 
grob vereinfacht. Es wirken im wesentlichen keine ande- 
ren äußeren Einflüsse auf den Tierbestand als die genann- 
ten. Das Pestizid führt gleichmäßig zu einer Verminde- 
rung beider Tierarten auf einen festen Prozentsatz (in 
Wirklichkeit werden dank ihrer schnelleren Vermehrung 
die „Schädlinge“ relativ häufig resistent, so daß das Gift 
nachher fast nur noch die „Nützlinge“ trifft). Bei genau- 
em Hinsehen verkürzt also die Computersimulation die 
Wirklichkeit: Allein schon deshalb, weil der Computer 
mit präzisen Werten und Größen in multikausalen und 
„offenen Systemen” rechnet. Er simuliert bloß eine eindi- 
mensionale Genauigkeit, wo Mehrdeutigkeit angemes- 
sen ist. 

Für Computersimulationen gilt, daß ihr Ergebnis in der 
Realität nur so beweiskräftig ist, wie die Interpretation 
gewissenhaft und glaubwürdig durchgeführt wird. Über 
alle zweifelhaften Stellen muß sorgfältig Rechenschaft 
abgelegt werden. Eine Simulation kann nie die Beobach- 
tung der Wirklichkeit ersetzen und eigentlich keine posi- 
tive Urteile liefern, sondern letztlich nur warnen: Wenn 
etwas im Modell schief läuft, sollte man in der Wirklich- 
keit besonders vorsichtig operieren. 


Simulation eines Ökosystems 


Zur 
Realisierung 


Vereinfachungen 


Sımulatıon kein Ersatz 
für Argumentation 
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PROGRAM Oekosystem; 


+ 


USES crt, printer; (Muß erst ab den Versionen nr 
Turbo-Pascal 4.0 eingefügt werden.} 


CONST 
EscapeTaste = #27; 
AnfangsbestandS = 1000.0; 
AnfangsbestandR = 10.0; 
UVeberlebensfaktor = 0.01; 
{Bei Pestizidanwendung} 
AnzahlReviere = 1000; 


{Maximalzahl R, die nicht auswandern) 


MaximaleJagdzahl 


zu jagen versuchen.} 
VermehrungsrateS = 1.5; {Am Tag} 
SterbeWahrscheinlichkeitR = 5; 

{Am Tag in ganzzahligen Prozent} 
Erfolgswahrscheinlichkeit = 70; 


50; {So viel kann ein R maximal an einem Tag 


{In ganzzahligen Prozent Wahrscheinlichkeit, 
daß ein R ein gejagtes $ wirklich erwischt.} 


VAR 
Tag : Integer; 
BestandS, BestandR : Real; 
TagLaeuft : Boolean; 
Zeichen : Char; 
RExemplar, SExemplar : Integer; 


PROCEDURE Zierzeile; 
VAR 
i: Integer; 
BEGIN ” 
FOR i:= 1 TO 80 DO Write (’*'); 


END; 


PROCEDURE Vermehrung; 
VAR 
AlterBestandRr : Integer; 
SImRevier, SGejagtImRevier : Integer; 


PROCEDURE Jagd; 
VAR 
Jagderfolg : Boolean; 


BEGIN {Das RExemplar jagt SExemplare in seinem 


Revier.) 
FOR SExemplar := 1 TO SGejagtImRevier DO 


| Simulation eines Ökosystems 


BEGIN 
IF Random (100) < Erfolgswahrscheinlichkeit 
THEN Jagderfolg := true 
ELSE Jagderfolg := false; 
IF Jagderfolg 
THEN {Wenn ein R Erfolg hat, kommt ein 
Nachkomme zustande, ein S geht zugrunde.} 
BEGIN 
BestandR := BestandR + 1; 
BestandS := BestandS - ]1; 
END; 


END; 
END (* von Jagd *); 


BEGIN (* von Vermehrung *) 
IF BestandS / AnzahlReviere > MaxInt 


THEN 
SImRevier := MaxInt (Schutz gegen Programmabsturz bei zu 
großen Zahlen.)} 
ELSE 
SImRevier := trunc (BestandS / AnzahlReviere); 


{Die S verteilen sich gleichmäßig auf 
die Reviere.) 
IF SImRevier >= MaximaleJagdzahl 


THEN 
SGejagtImRevier := MaximaleJagdzahl 
ELSE 
SGejagtImRevier := SImRevier; 
IF BestandR > AnzahlReviere 
THEN 
BestandR := AnzahlReviere; 


{Gibt es mehr Räuber als Reviere, so 
wandern Tiere aus.} 

AlterBestandR := trunc (BestandR); 
{Übertragen auf, Integer-Größe und Merken 
des Wertes} 


FOR RExemplar := 1 TO AlterBestandR DO Jagd; 
{Jedes Räubertier jagt in seinem Revier.} 
BestandS := BestandS * VermehrungsratesS; 


{Natürliche Vermehrung der S-Tiere ist 
heftig, ihre Nahrung unbegrenzt.} 
AlterBestandR := trunc (BestandR); 
FOR RExemplar := 1 TO AlterBestandR DO 
IF Random (100) < SterbewahrscheinlichkeitR 
THEN 


Wiederholungsstruktur . | 


BestandR := BestandR -1; 


{Jedes Exemplar von R stirbt mit einer: 
gewissen Wahrscheinlichkeit.} 


END (* von Vermehrung *); 


PROCEDURE EinTagImOekosysten; 


BEGIN 


Tag := Tag + 1; 
Write (’Tag ',Tag:3); 
Write (’II ’); 
Vermehrung; 


Write (’ 
Zeichen 


Pestizidanwendung j/n ’); 


:= Readkey: {In Turbo-Pascal 3.x muß diese Zeile 


lauten: Read (kbd, Zeichen);} 


IF Zeichen = ’j5’ 


THEN 
BEGIN 
Write (’j’); 
BestandS := UVeberlebensfaktor * BestandS; 
BestandR := Veberliebensfaktor * BestandR; 
END 
ELSE 


IF Zeichen = 'n’ 


THEN 


Write ('n’) 


ELSE 


Write (’ °); 


Write (’Il’); 


Write (’ 


Anzahl S’, BestandS : 15:0); 


Write ('’|’); 


Write ({’ 
WriteLln; 
END (* von 


BEGIN (* von 


* 


Anzahl R’, BestandR : 10:0); 


EinTagImOekosystem *); 


Hauptprogramm *) 


ClrScr; j 
‚WriteLn (‘ Simulation : eines Räuber-Schädlings-Systems’, 
£ Beenden mit Esc’); 
Zierzeile; 
WriteLn (’” Anfangsbestand „Schädlinge” ’, AnfangsBestandS:10:0); 
WriteLn ({’ Anfangsbestand „Räuber“ nz AnfangsßBestandR:10:0); 
WriteLn; 
Writeln; 
Zierzeile; 
Randomize; 
BestandR := AnfangsBestandR; 
BestandS := AnfangsBestandS; 
Tag := 0; 
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Taglaeuft := true; 
WHILE TagLaeuft 
DO 
BEGIN 
EinTagImOekoSystenm; 
IF Zeichen = EscapeTaste 
THEN 
TagLaeuft := false; 
END; 
Zierzeile; 
END. 


Wenn Sie die Ergebnisse der Simulation grafisch aus- 
werten oder in anderer Form nach dem Durchlauf des 
Programms nutzen möchten, so müssen Sie per Hand 
mitschreiben, die Werte ausdrucken lassen oder die Werte 
auf Diskette oder Platte abspeichern. Im nächsten Kapitel 
erfahren Sie, wie Sie in Pascal den Computer dazu veran- 
lassen, beliebige Daten in Textdateien zu schreiben und 
sie wieder zu lesen. 


Aufgaben 


1. Zeichnen Sie das Syntaxdiagramm für die WHILE- 
Anweisung. 

2. Damit WHILE-Schleifen zu einem Ende kommen, 
muß die von ihnen kontrollierte Aktion dazu führen kön- 
nen, daß die Eintrittsbedingung nicht mehr zutrifft. Was 
ist unter diesem Gesichtspunkt zu folgenden Ideen für 
Schleifen zu sagen: 


WHILE MehrWissenWollen DO Fragen; 
WHILE hungrig DO Essen; 

WHILE virulent DO Infektion; 
WHILE muede DO Schlafen; 

WHILE Mehr DO Zugabe; 

WHILE Again DO TryIt; 


3. Das folgende Struktogramm (Abb. 9-8) beschreibt 
ein Programm, mit dem ein kleiner Laden jeden Tag sein 
Kassenbuch führt. Am Morgen ist der Anfangsbestand 
der.Kasse einzutippen. Ein hinzukommender oder abge-- 
hender Betrag wird registriert. Auf Wunsch kann ein 
Zwischenabschluß anzeigt werden. Das Ganze wieder- 


Wiederholungsstruktur | 


holt sich, solange Weiterarbeiten bejaht wird. Am Ende 
wird ein Tagesabschluß erstellt. 

4. Finden Sie die WHILE-Schleife, die dasselbe tut, wie 
die folgende Zählschleife, wobei die Variablen i, Anfangs- 
wert, Endwert alle vom Typ Integer sind. Achten Sie dabei 
besonders auf die Fälle Arfangswert = Endwert bezie- 
hungsweise Anfangswert > Endwert. 


FOR i := Anfangswert TO Endwert DO 
WriteLln (i); 
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bbildung 9-8: Setzen Sie das Struktogramm in Pascal um! 


10 Textdateien 
und STRING- 


Verarbeitung 


Dateien in Pascal - Abarbeiten einer Textdatei - 

Daten speichern und wieder holen - Text Generators 
Ltd. - STRING-Spezialitäten - Silbentrennprogramm - 
Aufgaben 


Ein Programm ist nicht nur in der Lage, Tastatureingaben 
und Bildschirmausgaben zu steuern. Es kann Textströme 
auch auf Diskette, Platte oder andere Permanentspeicher 
lenken und dort wieder herholen. In diesem Kapitel „ler- 
nen” Pascal-Programme das Lesen und Schreiben auf 
Disketten bzw. Platte. Die Wiederholungsstruktur wird 
hier ihre typischste Anwendung finden: Ein beliebig um- 
fangreicher Datenvorrat kann unermüdlich nach einem 
vorgegebenen Muster abgearbeitet werden. 

In Kapitel 2 wurde der Computer als ein universelles 
Gerät zur Verarbeitung von Zeichen definiert. Zugrunde 
lag die Vorstellung eines Stroms von Symbolen, die, vom 
Computer aufgenommen, in irgendeiner Weise transfor- 
miert und dann ausgegeben werden. Das damalige Sche- 
ma wird nun etwas weiter ausgeführt, indem auch die 
möglichen Herkunfts- und Zielorte für den Zeichenstrom 
betrachtet werden. In der abstrakten Theorie „sprudeln” 
Zeichen aus Quellen und „sammeln sich” in Senken. 

Die Quelle beziehungsweise die Senke für einen Zei- 
chenstrom auf dem Computer ist entweder ein Gerät (wie 
Bildschirm oder Tastatur; englisch „device”) oder eine 
Datei. In Pascal werden Geräte als Spezialfälle von Datei- 
en behandelt. 


„Quellen“ und „Senken“ 
von Zeichenströmen 


Quote -..@7188:Je..- Verarbeitung [+..-+Seyich.. Senke 


Eingabe 


Abbildung 10-1: Erweitertes Computerschena 


Ausgabe 


Dateivariable 


Vordefinierte 
Dateivariable 


Dateien in Pascal 


In diesem Sinn wird die Tastatur als Datei, als Quelle ei- 
nes Zeichenstroms aufgefaßt. Von ihr kommt potentiell 
eine unaufhörliche Folge von Zeichen. Genauso zählen 
das Bildschirmgerät und der Drucker als Dateien, in die 
unbegrenzt Zeichen transportiert werden können. Dis- 
kettendateien sind dagegen nicht unerschöpflich. Aber 
ihre Speicherkapazität ist ziemlich groß, und sie bewah- 
ren den Zeichenstrom für die spätere Verwendung auf. 
Mit ihnen haben Sie bislang gearbeitet, wenn’Sie Pro- 
gramm- oder andere Editortexte gespeichert und geladen 
haben. Was hier das Editorsystem besorgt, das Schreiben 
und Lesen auf und von Diskette oder Platte, können Sie 
auch mit einfachen Pascal-Programmen selber veranlas- 
sen. Die Anweisungen, die Sie hierfür benötigen, sind im 
Grunde die vertrauten Write- und Read-Operationen, die 
lediglich anstatt mit der Standardsenke Bildschirm bezie- 
hungsweise der Standardquelle Tastatur mit anderen Da- 
teien arbeiten müssen. 

“ Zur Bezeichnung von Dateien werden Dateivariable 
verwendet. Die jeweilige Dateivariable, etwä Quelle be- 
ziehungsweise Senke, wird entsprechend dem folgenden 
Schema als erstes Glied in die Klammer hinter Read oder 
ReadLn, Write oder WriteLn geschrieben: 


Read (Quelle {, 
Write (Senke ({, 
ReadLn (Quelle (, 
WriteLn (Senke ({, 


); 
); 
); 
I; 


et 


Nach der Angabe der Quelle oder der Senke folgen wie 
üblich die Variablen, ‘die eingelesen, oder die Ausdrücke, 
die geschrieben werden sollen. Wenn lediglich ein Return 
geholt beziehungsweise ein Wagenrücklaufzeichen abge- 
schickt werden soll, stehen die Dateivariablen allein in 
der Klammer: 


- 


ReadLn (Quelle); 
WriteLn (Senke); 


Das Dina haben Sie schon am Beissiel der Ausgabe . 
auf dem Drucker kennengelernt, für den es in Turbo-Pas- 
cal die vordefinierte Dateivariable LST gibt (ab Turbo 4.0 
zugänglich, wenn in der USES-Deklaration der Modul 
Printer aufgezählt wird). Sofern Sie mit Turbo 3.x arbei- 


ten, haben Sie mit dem ungepufferten und echofreien 
Eingabekanal KBD auch schon eine vordefinierte Quell- 
datei gesehen. 

Werden weder die Standarddateien noch andere vor- 
definierte Dateivariable benutzt, so sind die Variablen 
wie andere Variable zu deklarieren. Für die formal un- 
strukturierten Textdateien gibt es den speziellen Typ Text. 
Damit die oben aufgeführten Beispiele funktionieren, 
muß also (unter der Überschrift VAR) deklariert werden: 


Quelle, Senke: Text; 


Die Brücke zwischen Pascal-Programm 
und Betriebssystem 


Dateien sind für ein Programmiersystem eine etwas hei- 
kle Angelegenheit, weil die externen Ein- und Ausgabe- 
geräte (Diskettenlaufwerke, Tastatur, Bildschirm und so 
weiter) bedient werden müssen. Die aufwendige Verwal- 
tung der Verbindungen zu diesen Geräten ist grundsätz- 
lich Sache des Betriebssystems. Ein Pascal-Programm, 
das auf diverse Dateien zurückgreifen soll, kann sich da- 
her nicht auf seine innere Logik beschränken, sondern 
muß in besonderem Maß an die Mittel des Betriebssy- 
stems anknüpfen. Eine Diskettendatei trägt zum Beispiel 
einen nach den Vorschriften des Betriebssystems gebilde- 
ten Namen. Sie kann unter diesem Namen aufgerufen 
- und abgespeichert werden. Der Aufruf und die Organisa- 
tion der Ablage sind Obliegenheiten des Betriebssystems. 
Das Pascal-Programm benutzt dagegen eine nach Pascal- 
Regeln definierte Dateivariable und soll mit ihr arbeiten 
können. Daher muß eine Brücke zwischen dem Betriebs- 
systern und den internen Bezeichnungen und Ablaufre- 
geln des Pascal-Programms geschlagen werden. Die Be- 
triebssystemaufrufe müssen in die Pascal-Umgebung 
übersetzt werden. 

Leider ist diese Übersetzung je nach Pascal-Dialekt et- 
was unterschiedlich ausgefallen. An der Einbruchsstelle 
des Betriebssystems finden sich relativ große Abweichun- 
gen zwischen den verschiedenen Pascal-Implementatio- 
nen (so wird die Einrichtung eines speziellen Pascal-Sy- 
stems genannt). Sollten Sie ein anderes System als Turbo- 
oder Quick-Pascal verwenden, müssen Sie auf jeden Fall 
in Ihrem Handbuch nachsehen, wie die Programmbei- 
spiele abzuändern sind. 


| Dateien in Pascal 


Deklaration von 
Text-Variablen 


Unterschiede in 

der Dateibehandlung 
bei verschiedenen 
Pascal- 
Implementationen 


Assign 


Öffnen mit 
ReWrite 


Öffnen mit 
Reset 


Für den ersten Brückenschlag zwischen Betriebssystem 
und den pascalinternen Größen gibt es in Turbo-Pascal 
eine eigene Anweisung, Ässign („zuordnen”). Mit Assign 
weisen Sie der im Programm deklarierten Pascal-Datei- 
variablen den Namen einer Betriebssystemdatei zu. Der. 
Dateiname kann als fester STRING (in Apostrophen).. 
oder mittels einer STRING-Variablen bezeichnet werden. 
Zum epie 


Assign (Quelle, '"A:Brief.txt’); 
Assign (Senke, '"B:Adresse.txt’); 


Oder, wenn Dateinamel, Dateiname? als STRING dekla- 
rierte Variablen sind: 


Assign (Quelle, Dateinamel);. 
Assign (Senke, Däteinanme2); 


Dateien öffnen und schließen 


Das Betriebssystem reserviert für jede Datei, auf die Lese- 
und Schreibzugriffe stattfinden, sollen, einen gewissen 
Bereich des internen Speicherstäls Puffer. Dadurch muß 
nicht bei jedem zu lesendendöder zu schreibenden Zei- 
chen auf das langsame Disk- Laufwerk zugegriffen wer- 
den. Es wird jeweils ein Block von Zeichen in einem 
Rutsch geholt beziehungsweise losgeschickt, der im Puf- 
fer zwischengespeichert wird. Damit nicht zu viel Spei- _ 
cherplatz für diese Puffer verloren geht, erlaubt das Be- 
triebssystem nur eine beschränkte Anzahl gleichzeitig 
offener Dateien. Eine Datei muß daher zu ihrer Benut- 
zung ausdrücklich eröffnet werden. Wenn sie nicht ge- 
braucht wird, sollte sie wieder geschlossen werden, um 
den Dateipuffer freizugeben. 

Je nach Art der beabsichtigten Dateinutzung gibt es 
zwei Anweisungen für das Öffnen: 


ReWrite (Senke); 


ReWrite richtet die Betriebssystemdatei, die in der As- 
sign-Anweisung mit Senke verbunden wurde, . zum 
Schreiben neu ein. Handelt es sich um eine Disk-Datei, 
wird sie neu angelegt - eine eventuell schon vorhandene 
Datei gleichen Namens wird überschrieben. 

Wollen Sie dagegen eine vorhandene Datei von vorne 
anfangend lesen, so öffnen Sie diese mit Reset: 


Reset (Quelle); 


Es gibt zwar Spezialbefehle, doch mit den Standard- 
anweisungen kann zu einer bestehenden Datei nichts 
hinzugefügt werden. Entweder wird eine vorhandene 
Datei gelesen oder eine neue erstellt. Jede Veränderung 
oder Erweiterung der Datei erfordert, daß eine neue Ver- 
"sion von ihr auf der Diskette erzeugt wird. Gelesen wird 
eine Textdatei stets von vorne, ohne daß Abschnitte über- 
sprungen werden. Immerhin dürfen Sie mit einem einfa- 
chen Reset (Quelle) an den Anfang der Datei zurückkeh- 
ren, um sie erneut zu lesen. 

Die Anweisung zum Schließen der Dateien verwendet 
einfach das Wort Close: 


Close (Quelle); 
Close: (Senke); 


Wenn Sie eine Datei geschlossen haben, ist die Dateiva- 
riable wieder frei. Mit einem neuen Assign können Sie ihr 
eine andere Disk-Datei zuweisen. Es sei nochmal darauf 
hingewiesen, daß Sie, wenn Sie ein anderes System als 
Turbo- oder Quick-Pascal benutzen, genau in Ihrem 
Handbuch nachschauen sollten, wie Textdateien behan- 
delt werden. Es gibt Pascal-Dialekte, bei denen eine Datei 
nur dauerhaft auf Diskette bleibt (und nicht automatisch 
gelöscht wird), wenn bei Close der Zusatz lock (‚„verschlie- 
ßen”) angegeben ist. | 


Abarbeiten einer Textdatei 


Das Betriebssystem teilt dem Programm auch mit, ob 
beim Lesen das Dateiende erreicht wurde. In Pascal kann 
diese Information abgefragt werden mit der Funktion eof 
(eine Abkürzung für End Of File - „Ende der Datei): 


eof (Quelle) 


eof liefert einen booleschen Wert. 

Eine Datei insgesamt lesen heißt: „Solange noch Daten 
in der Disk-Datei sind, lies und verarbeite sie”. Benötigt 
wird also eine Wiederholungsstruktur, deren Finalbedin- 
gung mit Hilfe eines eof-Ausdrucks formuliert werden 
kann. Wenn als Quelle Text deklariert wurde, Zeile und 
Dateiname STRING-Variablen sind und nach einer Einga- 
be oder einer Wertzuweisung der Name einer Datei auf 
Dateiname steht,.so lautet der typische Ablauf eines Pas- 


Close 


EOF 


Textdateien | 


‚ cal-Programms zur Verarbeitung einer Textdatei wie 
folgt: 


Assign. (Quelle, Dateiname); 
Reset (Wuelle); 
WHILE NOT eof (Quelle) DO 
‚BEGIN 
ReadLn (Quelle, Zeile); 
WriteLln (Lst, Zeile); 
END; 
Close (wuelle); 


Datei mit Im diesem Fall wurde zugrunde gelegt, daß die Datei 
Zeilenstruktur eine Zeilenstruktur besitzt, also zum Beispiel mit einem 
Editor erzeugt wurde. In der Textdatei sind die Return- 
Zeichen, die am Zeilenende erzeugt wurden, mit abge- 
speichert. Beim Lesen der Datei werden sie durch ReadLn 
so behandelt, als kämen sie unmittelbar von der Tastatur. 
Jedes ReadLn nimmt daher den Text einer ganzen Zeile 
auf und überträgt ihn in die Variable Zeile. 

In den Anweisungen oben wird Zeile zum Drucker aus- 
gegeben. Somit ergibt sich ein einfaches Ausdruckpro- 
gramm, das Sie später mit mehr Komfort ausstatten kön- 
nen. 

Zeichenweises Wenn die Datei keine Zeilenstruktur besitzt, kann man 
Lesen .sie auch zeichenweise einlesen. Anstelle einer STRING- 
Variablen wird eine Char-Größe, etwa Zeichen, und Read 
‚statt ReadLn verwendet. Ansonsten bleibt der Ablauf un- 
verändert. Das folgende Beispiel kann dazu dienen, im 
Editor nicht lesbare Dateien, die vielleicht von anderen 
Textverarbeitungssystemen erzeugt wurden, ein bißchen 
zu analysieren: 


Assign .(Quelle, Dateiname); 
‘Reset (Quelle); 
-WHILE NOT ©eöf (Quelle) DO 
: BEGIN .::. 1. ..-.0.: 0 
‘1%: Read (Quelle, Zeichen); 
"Write (Zeichen, ” ’, ord (Zeichen)); 
ven (Gibt das Zeichen und seine 


RUHR Bu ı ASCII-Codenummer aus.} 
. ReadLn; {Nächstes Zeichen mit Return} 
END: 


Close (Quelle); 


Daten speichern und wieder holen 


Das folgende Turbo-Programm nimmt jeweils zwei (mit 
einem Würfel von Hand bestimmte) Werte von der Tasta- 
tur auf und bildet die Summe. Aber es schreibt das Ergeb- 
nis der Addition nicht auf den Bildschirm, sondern zei- 
lenweise in die Datei HISTO.TXT im Laufwerk B: Das 
Programm WuerfelSpiel zeichnet sozusagen die Ge- 
schichte („Historie”) eines Spiels auf. Die Aufzeichnung 
endet durch Eingabe eines Wertes, der zu groß als Würfel- 
zahl ist. 


PROGRAM WuerfelSpiel; 


USES crt, printer; {Muß erst ab den Versionen Turbo-Pascal 4.0 
eingefügt werden.) 


VAR 
Geschichtsdatei : Text; 
Summe, Wertl, Wert2 : Integer; 
MEHR : Boolean; 
Zeichen : Chor; 


PROCEDURE ProgrammErklaeren; 
BEGIN 
ClrScr; 
Writeln; 
WriteLn (’Dieses Programm speichert ein ”Würfeispiel” ’); 
WriteLn (’in einer Datei A:\HISTO.TXT ab.’); 


Write ('———— 7); 
Write ( —, ) z 
WriteLln; 


WriteLln ({’Wollen Sie ein Würfelspiel abspeichern?’); 
WriteLn; WriteLln; 
WriteLln ("Drücken Sie die Taste {[ j ] für ”Jarı’); 
WriteLn {’Jede andere Taste = Abbruch! ’)}; 
WriteLln; Writeln; j 

END; 


PROCEDURE Speichern; 
BEGIN 
Assign (Geschichtsdatei, 'A:Histo.txt’); 
ReWwrite (Geschichtsdatei); 
MEHR := true; 
WHILE MEHR DO 
BEGIN {Eingeben von Tastatur} 


Textdateien | 


ClrScr; 
GoToXY (1,15); 
Write (’Beenden mit einer Zahl größer als 6!’); 
GoToXY (1,5);. 
Write (’Was bringt der erste Wurf: ’); 
ReadLn (Wert1l); 
‚GoToXY (1,6); 
Write (’was der nächste nr 
ReadLn (Wert2); (Summieren und Schreiben in Datei} 
Summe := Wertli + Wert2; 
IF (Werti1 IN [1..6) AND (Wert2 IN [1..6)) 
THEN 
WriteLn (Geschichtsdatei, Summe) 
ELSE 
MEHR :=false 
END; 
Close (Geschichtsdatei); 
END; 


BEGIN (* von Hauptprogramm *) 
ProgrammErklaeren; 
Zeichen : = Readkey; 
{Turbo-Pascal 3.0: Read (Kbd, Zeichen} 
if Zeichen in [(’j’, '9') then. Speichern; 
END. 


Man kann sich die gespeicherte Datei HISTO.TXT ge- 
nauso wie jede andere Textdatei im Editor ansehen. Will 
‚man die Daten in irgendeiner Form automatisch verarbei- 
ten, können sie auch mit einem eigenen Programm gele- 
‚sen werden. Die Anweisungen lauten fast genauso, als 
= . würden die Daten nochmal mittels Tastatur eingegeben. 
Ermittlung des . Beispiel: um die durchschnittlich gewürfelte Augen- 
Durchschnittswertes zahl (den Mittelwert) zu bestimmen, holt man nacheinan- 
der die einzelnen Werte aus der Datei, summiert sie (mit 
Hilfe der Summenvariable SunmeAllerWerte) auf und: 
zählt mit, wieviele es sind. Nach der Schleife muß Sumnte- 
AllerWerte durch AnzahlWerte dividiert werden. Das Pro- 
gramm sieht also folgendermaßen aus: 


PROGRAM Auswertung; 


USES crt, printer; 


VAR 
Aufzeichnungsdatei : Text; 
Durchschnitt : Real; 


Einzelwert, AnzahlWerte, SummeAllerWerte : Integer; 


PROCEDURE ProgrammErklaeren; 

BEGIN 
ClrScr; 
WriteLn; . 
WriteLn (’Diese Programm errechnet den Mittelwert’); 
WriteLln (’für die in A:\HISTO.TXT gespeicherten. ’); 
WriteLn (’ (Würfel)Zahlen.’); 
Write (' ———?/); 
Write (' ———'); 
WritelLn; 

END; 


BEGIN 
ProgrammErklaeren; 
Assign (Aufzeichnungsdatei, ’A:Histo.txt’); 
Reset (Aufzeichnungsdatei); 
AnzahlWerte =: 0; 
SummeAllerWerte := (0; 
WHILE NOT eof (Aufzeichnungsdatei) DO 


BEGIN 
ReadLn (Aufzeichnungsdatei, Einzelwert); 
AnzahlWerte := AnzahlWerte + 1; 
SummeAllerWerte := SummeAllerWerte + Einzelwert; 
END; 
Durchschnitt := SummeAllerWerte / AnzahlWerte; 


WriteLn (’Der Mittelwert beträgt: ’, Durchschnitt :4:1 ); 
Close (Aufzeichnungsdatei); 
END. 


Geräte als Dateien 


Wenn Sie, um ein Programm zu testen, die Ausgabe kurz- 
fristig auf den Bildschirm umlenken oder Eingaben zwi- 
schendurch von der Tastatur statt von einer Diskettenda- 
tei nehmen wollen, brauchen Sie die Dateivariable nicht 
aus dem Programmtext zu entfernen: Sie können in der 
Assign-Anweisung mit der Dateivariablen auch eine Ge- 
rätebezeichnung verbinden, das heißt einen Standard- 


Fließtext 
erzeugen 


Dateinamen von Turbo-Pascal beziehungsweise MS-DOS 
für das entsprechende Ein- oder Ausgabegerät. Mit CON 
(console) kann die Tastatur zur Eingabe und der. Bild- 
schirm zur Ausgabe angewählt werden. Zum Beispiel 
würden nach den beiden folgenden Zuordnungen die 
WritelLn- und ReadLn-Anweisungen. aus dem obigen 
Programm so arbeiten, als wäre keine Dateivariableange- 
geben: 


Assign (Geschichtsdatei, 'COoN’); 
Assign (Aufzeichnungsdatei, ’CON’); 


Als weitere Standard-Gerätenamen können Sie PRN 
(printer) oder LPT1 (für Line printer 1) für den ersten 


. Drucker verwenden, LPT2 und LPT3 für einen zweiten 


und dritten angeschlossenen Drucker (in Turbo 3.x heißt : 
es LST). Die seriellen Schnittstellen werden über COMI 
(oder auch AUX) und COM2 angesprochen. Serielle Da- 
tenübertragung bedeutet, daß die einzelnen Bits eines By- 
tes nacheinander, richt gleichzeitig bzw. parallel gesen- 
det werden. 

Die Bezeichnungen der Geräteeinheiten sind spezifisch 
für das Betriebssystem. Außerdem können die Entwickler 
der jeweiligen Pascal-Version noch eigene Erfindungen 
hinzutun oder vom Betriebssystem angebotene sperren. 
Sogar die Abweichungen zwischen den -verschiedenen 
Versionen von Turbo-Pascal sind an diesem Punkt erheb- 
lich, die Gründe für die diversen Veränderungen .nicht 
immer nachvollziehbar. Ein Programm, das solche Gerä- 
teeinheiten benutzt, muß beim Wechsel zu einer anderen 
Pascal-Implementation überprüft und in der Regel abge- 
ändert werden. 


Text Generators Ltd. 


Obwohl es für fast alle-Zwecke fertige Programme zu 
kaufen gibt, kann es nützlich sein, kleinere Datenanpas- 
sungen mit eigenen, relativ schnell geschriebenen Pro- 
grammen selbst durchzuführen. Eröffnen wir also eine 
kleine Firma für Programme zur automatischen Textbear- 
beitung: Text Generators Limited. Wie stets beim Computer 
handelt es sich hierbei um ein Hilfsmittel’ zur‘ Be 
Bearbeitung von Zeichenströmen. 

Ein Editor arbeitet zeilenorientiert, das heißt, en Bild- 
schirmzeile wird direkt abgespeichert, indem das Zeilen- 


ende mit der Return-Zeichenkombination (Wagenrück- 
lauf/ Zeilenvorschub) markiert wird. Textverarbeitungs- 
systeme benötigen in der Regel Fließtext, Return steht 
hierbei nur am Ende eines Absatzes. Sie können im Editor 
geschriebene Iexte (bei denen die Absätze durch Leerzei- 
len angezeigt sind) automatisch in die andere, absatz- 
orientierte Fließtextform überführen, indem Sie den Text. . 
zeilenweise mit ReadLn lesen und die gelesenen 
STRINGSs nur mittels Write, also ohne Return-Zeichen, in 
eine neue Datei schreiben. WriteLn wird nur aufgerufen, 
wenn die gelesene Zeile leer war: 


PROGRAM FliessTextErzeugen; 


USES crt, printer; (Muß erst ab den Versionen Turbo-Pascal 4.0 
eingefügt werden.} 


VAR 
Quelle, Senke : Text; 
QuellenName, SenkenName : STRING [40]; 
Zeile : STRING [255]; 


PROCEDURE DateienBestimmen; 
BEGIN 
Write (’ umzuwandelnde Datei: ’); 
ReadLn (QuellenName); 
Write (’ neu erzeugte Datei: ’); 
ReadLn (SenkenName); 
END; 


PROCEDURE Programmärklaeren; 

BEGIN 
ClrScr; 
WriteLln; 
Write ('Das Programm wandelt einen zeilenorientiert’); 
Write (’gespeicherten Text in Fließtext um’); 
Writeln; 
Write {mm — — — —— '); 
Write ('—————); 
Writeln; 
WriteLln; 

END; 


BEGIN (* von Hauptprogramm *) 
Programmerklaeren; 
DateienBestimmen; | j r 
Assign (Quelle, QuellenName); 

Assign (Senke, SenkenName); 


Reset (Quelle); 
ReWrite (Senke); 
WHILE NOT eof (Quelle) 
DO 
BEGIN 
ReadLn (Quelle, Zeile); 
Write (Senke, Zeile); 
IF Zeile = '’’ 
THEN 
BEGIN 
WriteLn (Senke); 
WriteLn (Senke); 
END {Zweimal Absatz entspricht} 
END; {Absatzende plus Leerzeile.) 
Close (Quelle); 
Close (Senke); 
END. 


Wieder Zeilen erzeugen 


Den entstandenen Text können Sie mit vielen Editoren 
nicht mehr lesen, weil diese nur begrenzte Zeilenlängen 
verarbeiten. Wenn Sie den Text wieder zurück in eine Da- 
tei mit Zeilenstruktur wandeln wollen, können Sie ihn 
zeichenweise aufnehmen und die Zeichen mitzählen. So- 
bald eine Zeile ungefähr voll ist, schreiben Sie mittels 
WriteLn ein Return in die neue Datei: 


.PROGRAM ZeilenstrukturErzeugen; 


USES crt, printer; {Muß erst ab den Versionen Turbo-Pascal 4.0 
eingefügt werden.) 


CONST 
MindestZeilenlaenge = 55; 

VAR 
Quelle, Senke : Text; 
QuellenName, SenkenName : STRING [40]; 
Zeichen : Char; 
ZeichenInEinerZeile : Integer; 


PROCEDURE DateienBestimmen; 
BEGIN 
{wie bisher} 
END; 


| Text Generators Ltd. 


PROCEDURE ProgrammErklaeren; 
BEGIN 
{Wie bisher; allerdings muß die Texterklärung 
gemäß der Aufgabe des Programms abgeändert werden.) 
END; 


BEGIN (* von Hauptprogramm *) 
ProgrammkErklaeren; 
DateienBestimmen; 
Assign (Quelle, QuellenName); 
Assign (Senke, SenkenName); 
Reset (Quelle); 
ReWwrite (Senke); 
ZeichenInEinerZeile := (0; 
WHILE NOT eof (Quelle) DO 
BEGIN 
Read (Quelle, Zeichen); 
zZeichenInEinerZeile := ZeichenlInEinerZeile + 1; 
IF (ZeichenInEinerZeile > MindestZeilenlaenge) 
{Zeile bald voll} 
AND (Zeichen = ’ ') 
{Das gelesene Zeichen ist das Leerzeichen, 
das heißt, ein Wort ist zu Ende.) 


h 


THEN 
{Sie schreiben ein Zeilenende und setzen den 
zähler auf 0) | 
BEGIN 
WriteLn (Senke); 
ZeichenlInEinerZeile := 0; 
END 
ELSE 
BEGIN 


{Das gelesene Zeichen wird in die neue Datei 
geschrieben.) 
Write (Senke, Zeichen); 
{Wenn das Zeichen ”Wagenrücklauf” ist, muß 
der Zähler auch auf 0 gesetzt werden:)} 
IF Zeichen = chr (13) 
THEN ZeichenlInEinerZeile := 0; 
END; 
END; 
Close (Quelle); 
Close (Senke); 
END. 
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EoLn 


Length 
und Pos 


In manchen Pascal-Dialekten wird das Return-Zeichen 
von einem einfachen Read nicht aufgenommen. Bei obi- 
gem Programm würden daher die ursprünglich im Text 
vorhandenen Zeilenendezeichen nicht in die neue Datei 
übertragen. Die ursprünglichen Zeilenschlüsse, das heißt 
die Absätze, würden verschwinden - was nicht beabsich- 
tigt ist. Auch die Abfrage Zeichen = chr (13) würde nichts 
bewirken. Um ein Zeilenende festzustellen, muß dann 
folgende (auch in Turbo-Pascal vorhandene) boolesche 
Funktion verwendet werden: 


EoLn (Quelle) 


Sie ergibt den Wert true, wenn die Zeile zu Ende ist, 
sonst false (EoLn bedeutet End of Line). Die Bedingung 
für WriteLn (Senke) müßte ergänzt werden um: 


OR EoLn (Quelle) 


Dafür läßt sich die IF-Anweisung im ELSE-Teil der gro- 
ßen Fallunterscheidung einsparen. 

Das Programm ZeilenstrukturErzeugen kann zu einer 
halbautomatischen, interaktiven Silbentrennung erwei- 
tert werden. Das heißt, ein Benutzer oder eine Benutzerin 
soll Gelegenheit erhalten, Trennstellen für Wörter zu nen- 
nen, die in das Stück zwischen MindestZeilenlaenge und 
einer noch festzulegenden Maximallaenge nicht passen. 
Damit dies mit einem gewissen Komfort geschieht, müs- 
sen solche Textstücke (des Datentyps STRING) zwischen- 
gespeichert und bei Bedarf auseinandergenommen, ge- 
kürzt und ergänzt werden‘ können. Für derartige 
Verarbeitungsaufgaben gibt es in den meisten Pascal-Va- 
rianten eine Reihe von fertigen Funktionen und Prozedu- 
ren. 


STRING-Spezialitäten 


Wenn Wort eine STRING-Größe ist, dann teilt Length 


(Wort) die Anzahl der Zeichen mit, die Wort aktuell um- 


faßt (die „Länge”). Es handelt sich natürlich um einen In- 
teger-Wert. Eine äußerst praktische Funktion ist auch Pos 
(Position): 

Pos (Stueck, Wort) 


Die Position von Stueck in Wort, besagt, beim wıeviel- 
ten Zeichen von Wort der STRING Stueck beginnt (bei 
mehrfachem Vorkommen zählt das erste). Offenbar er- 


gibt sich wieder ein Integer-Wert. Zum Beispiel hat Pos 
(ch, Buch‘) den Wert 3. Sofern Stueck keinen Teil von Wort 
bildet, bekommt Pos (Stueck, Wort) den Wert 0. 

Dies führt auf eine einfache Methode, um festzustellen, 
ob ein bestimmter STRING in einer Zeile enthalten ist. 
Soll das erste Beispiel dieses Kapitels so abgeändert wer- 
den, daß automatisch am Anfang einer Prozedurdeklara- 
tion im Programmausdruck eine Leerzeile eingeschoben 
wird, fragen Sie ab: 


IF Pos :{'PROCEDURE’, Zeile) <> 0 


Wenn dies der Fall ist, lassen Sie vor der Ausgabe von 
Zeile ein WritelLn (Senke) ausführen. Das Verfahren funk- 
tioniert in dieser Form nur, wenn PROCEDURE immer 
exakt gleich geschrieben wurde. 

Um zwei oder mehrere Strings aneinanderzuhängen, 
existiert die Funktion Concat, (concatenation, „Verket- 
tung”). Das Resultat kann einer STRING-Variablen zuge- 
wiesen oder anderweitig verwendet werden. Wenn Anre- 
de und Zeile STRING-Variablen sind (wobei auch mehrere 
STRING-Variablen vorkommen dürfen oder dieselben 

mehrfach), kann folgender Ausdruck gebildet werden: 


zeile := Concat (’Liebe’, Anrede, '’!’); 


In Turbo-Pascal lassen sich Textstücke nicht nur mit 
Concat verketten, sondern auch mit einem Pluszeichen 
„addieren“. 


Zeile := Liebe’ + Anrede + '!’; 


Mit dieser Zuweisung sind die folgenden Anweisun- 
gen gleichbedeutend: 


Writeln (Zeile); {Dasselbe wie:)} 
WriteLln (’Liebe’, Anrede, '!'); 


Ist das Ausrufezeichen im Beispiel eigentlich ein 
STRING oder ein Char? Sie müssen sich zum Glück nicht 
entscheiden, weil STRING-Werte der Länge 1 wie Chars 
behandelt werden. Kritischer wird es, wenn statt eines 
Werts eine Char-Variable, etwa SchlussZeichen verwendet 
werden muß. Strenggenommen lassen sich mit Concat 
beziehungsweise + nur Strings ‘verknüpfen. In Turbo- 
Pascal dürfte dennoch gebildet werden: 


Zeile := ’Liebe’ + Anrede 
+ SchlussZeichen; 


| STRING-Spezialitäten 


Concat 


Verketten von 
Chars und Strings 


Copy 


‘ Funktionen und 
Prozeduren 


Delete 
und Insert 


. „Andere Pascal-Dialekte sehen das enger. Dann muf ein 
Trick.weiterhelfen. Erst wird irgendein festes Zeichen an 
den STRING gebunden -(zum Beispiel das Leerzeichen) 
und dann das Zeichen durch den Inhalt der Variablen er- 
setzt. Das sieht etwa so aus: 


Zeile := Concat (’Liebe’, Anrede,  : .; 
Zeile [Length (Zeile)] := SchlussZeichen; 


Wenn hinter einer STRING-Variablen in eckigen Klam- 
mern eine Nummer steht (etwa 15), bedeutet dieser Aus- 
druck das entsprechende Zeichen (im Beispiel das fünf- 
zehnte) des STRINGSs. Length (Zeile) gibt-die Länge und 
damit die Nummer des letzten Zeichens von Zeile an. Mit 
Zeile [Length (Zeile)] können Sie also das letzte Zeichen 
von Zeile ansprechen. 

" Mittels der Funktion Copy kann ein Ausschnei eines 
STRINGs Wort auf eine andere STRING-Variable Teil ko- 
piert werden. Nach Ausführung der Anweisung: 


Teil := Copy (Wort, i, zZ) 


enthält Teil die z Zeichen, die in Wort ab dessen i-ten Zei- 
chen stehen. Zum Beispiel ergibt die folgende Erogramm. 
zeile den STRING uch": 


Copy (’Buch’, 2, 3) 


Was haben die bisher geschilderten STRING-Speziali- 
täten gemeinsam? Sie tauchen als Teil einer Wertzuwei- 
sung oder als Teile anderer Anweisungen auf, wo sie für 
Werte stehen. Da mathematische Funktionen in ähnlicher 
Form Werte repräsentieren, wird von STRING-Funktionen 
gesprochen. Wenn dagegen eine STRING-Prozedur aufge- 
rufen wird, so stellt sie für sich, wie jeder anderer Proze- 
duraufruf, eine komplette Anweisung dar. 

"Unter Verwendung zweier Prozeduren können gezielt 
Teile eines Strings herausgeschnitten-oder Stücke einge- 
fügt werden. Das erste sieht so aus: 


Delete (Wort, i, 2); 


Delete löscht, beginnend an der Stelle i, z Zeichen in der 
STRING-Variablen Wort. Ein Beispiel verdeutlicht die Ar- 
beitsweise: 


Wort := ’"Buchstabe’; 
Delete (Wort, 3, 5); 
WriteLn (Wort); 


Das dritte Zeichen ist das „c”, fünf abgezählt führt auf 
„a": Am Ende bleibt der „Bu..be” übrig. Das Gegenstück 
zu Delete ist die Prozedur Insert, mit der etwas in einen 
STRING eingebaut werden kann: 


Insert (Stueck, Wort, i); 


Hier wird Stueck an der i-ten Stelle von Wort in diesen 
STRING eingefügt. Die nachfolgende Zeile hebt obige Lö- 
schung wieder auf. 


Insert ('chsta’, 'Bube’, 3); 


Jetzt haben Sie viele Möglichkeiten, STRINGSs zu ver- 
ketten, zu verschieben, zu kürzen, zu ergänzen. Was 
nützt Ihnen das konkret, wenn es darum geht, die Ausga- 
be von errechneten Werten zu gestalten? Auch dafür ist 
vorgesorgt. Wenn für ein Programm die Standardfor- 
matierungen für Zahlen nicht genügen, können Sie mit- 
tels der Prozedur Str eine Zahl in einen STRING umwan- 
deln, der dann weiter bearbeitet wird: 


Str (Zahl, Wort) 


Diese Programmzeile schreibt auf den STRING Wort 
die Zeichenfolge, die dem numerischen Wert Zahl ent- 
spricht. Turbo-Pascal kennt eine Prozedur, die das Umge- 
kehrte macht: Val (Wort, Zahl, Pruefivert) versucht eine 
Zahlenbedeutung zu ermitteln, die der auf Wort stehende 
STRING hat, und setzt das Ergebnis auf die Real- oder 
Integer-Variable Zahl. Natürlich lassen sich sinnvoll nur 
STRINGs als Zahlen interpretieren, die aus Ziffern beste- 
hen beziehungsweise ein gültiges Dezimalzahlenformat 
haben. Daher wird in der dritten (Integer-) Variablen, hier 
Pruefwert genannt, festgehalten, ob die Umwandlung 
stattfand. Wenn es nicht oder nicht vollständig funktio- 
niert hat, steht in Pruefwert die Position des ersten Zei- 
chens im STRING, das nicht in das Zahlenformat paßte. 
Allerdings haben die Turbo-Konstrukteure früher einen 
Grenzfall übersehen: Auch bei einem leeren STRING 
wurde Pruefwert auf 0 gesetzt, als wäre die Zahl korrekt. 
Ab Turbo 4.0 ist der Fehler behoben. Pruefwert erhält beim 
Versuch, einen leeren STRING in eine Zahl zu transfor- 
mieren, nun den Wert]. 


Str 


Val 
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Das Silbentrennprogramm 


Jetzt sind die Mittel beisammen, um das interaktive Sil- 
bentrennprogramm zu schreiben. Die Kombination des 
fließtexterzeugenden mit dem erweiterten, zeilenbilden- 
den Programm gestattet, im Editor geschriebene Texte in 
bester Form auszugeben. Auf diese Weise können Sie den 
gewohnten Editor zur Textverarbeitung verwenden (Er- 
läuterungen zum Programm folgen unten): 


PROGRAM ZeilenBilden; 
USES crt, printer; {Muß erst ab den Versionen Turbo-Pascal 4.0 
eingefügt werden.) 


CONST 

MindestZeilenlaenge = 55; 

Maximallaenge = 60; 

AnzeigezeileNr = 25; 

HalbeLeerzeile = ’ 

{40 Leerzeichen} 

Bindestrich a: 

Trennzeichen = '=-’; {Wenn der erzeugte Text später weiter 
bearbeitet werden soll, ist es sinnvoll, 
vom Bindestrich, ASCII-Nummer 45, einen. 
Trennstrich, intern meist das 
ASCII-Zeichen 31, zu unterscheiden.} 

VAR 

Quelle, Senke : Text; 

QuellenName, SenkenName : STRING [40]; 

Zeichen : Char; 

Zeile, Restzeile :, STRING [255]; 


PROCEDURE ProgrammVorstellung; 

BEGIN 
ClrScr; 
WriteLln (’ Interaktive Silbentrennung’); 

{Mit 25 Leerzeichen eingeben.) 

GoToXY (20,3); 
Write ('———)); 

END; 


PROCEDURE DateienBestimmen; 
BEGIN 
GoToXY (1, 6); 
Write (’Ausgangsdatei: ’); 
ReadLn (Quellenname); 
Write ('Zieldatei: “); 
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ReaädäLn (SenkenNanme); : 
END; 


PROCEDURE Bedienungshinweis; 
BEGIN 
GoToXY (1, 2); 
Write (HalbeLeerzeile); Write (HalbeLeerzeile); 
GoToXY (1, 3); 
Write (HalbeLeerzeile); Write (HalbeLeerzeile); 
GoToXY (1, 3); 
Write 
en 33 E 
{Balken mit ASCII-Code: 220} 
GoToXY (1, 1); 
WriteLn (’Trennstelle nach links: < Nach rechts: > ’, 
' Hier trennen: -— '); 
GoToXY (1, 2); 
Write ("Nicht trennen: Leertaste (Space) drücken.’); 
GoToXY (1, 4); 
Write {HalbeLeerzeile); Write (HalbeLlLeerzeile); 
END; 


PROCEDURE InteraktiveTrennung; 
VAR 
ji: Integer; 
Getrennt, WortendeGefunden: Boolean; 
Eingabe: Char; 


PROCEDURE VerarbeiteEingabe; 


BEGIN 
IF Eingabe = '<’ 
THEN $„ {Gehe rückwärts) 
BEGIN 
IF i> 0 THEN i:= i - 1; 
GoToXY (i, AnzeigezeileNr); 
END 
ELSE 
IF Eingabe = ’>' 
THEN {Gehe wieder vorwärts) 
BEGIN 


IF i < Maximallaenge THEN i:= i + 1; 
GoToXY (i, AnzeigezeileNr); 
END 
ELSE 
IF Eingabe = ’-' 
THEN 
BEGIN 
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Getrennt := true; 

Restzeile := copy (Zeile, i, Maximallaenge + 1 - i 
+ 1); 

Zeile :=.copy (Zeile, 1, i-1); 

Zeile := Zeile + Trennzeichen; 


END 
ELSE 
IF Eingabe = ’ 
THEN 
BEGIN 
Getrennt := true; 
{Suche Wortende } 
WortendeGefunden := false; 
i:= MindestZeilenlaenge; 
WHILE NOT WortendeGefunden AND (i > 1) DO 
IF Zeile [i] IN [’' ‘,Bindestrich] 
THEN WortendeGefunden := true 
ELSE i:= i-1i; 
\ IF NOT WortendeGefunden 
THEN 
{Die ganze Zeile nehmen.} 
BEGIN 
Restzeile 
= copy (Zeile, Maximallaenge+l,1); 
Zeile = copy (Zeile, 1, Maximallaenge); 
END \ 
u ELSE 
{Wortende wurde gefunden.) 
BEGIN. | 
 Restzeile := copy (Zeile, i+l, 
Maximallaenge + 1 - i); 
Zeile := copy (Zeile, 1, i); 
END; , 
END (* von IF Eingabe := ' ' *) 
ELSE; {Keine Reaktion} 


END (* von VerarbeiteEingabe *); 


BEGIN (* von InteraktiveTrennung *) 
i:= Maximallaenge; 
GoToXY (1, AnzeigezeileNr); 
Write (Zeile); (Anzeige der gelesenen Zeile} 
Bedienungshinweis; 
GoToXY (i, AnzeigezeileNr); 
Getrennt := false; 
‚WHILE NOT Getrennt DO 
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| Das Silbentrennprogramm 


BEGIN 
Eingabe := ReadKkey; 
{In Turbo Pascal 3.x: Read (kbd, 
Eingabe);} 
VerarbeiteEingabe; 
END; 


END (* von InteraktiveTrennung *); 


PROCEDURE Trennen; {In dieser Prozedur wird entweder zwischen 
zwei Wörtern oder mittels Silbentrennung die 
Zeile aufgetreriint. Der Rest kommt auf 
Restzeile, der Anfang bleibt auf Zeile.} 
VAR 
ji: Integer; 
WortendeGefunden: Boolean; 


BEGIN 
{Zunächst suche im Zeilenstück zwischen Mindest- und 
Maximallaenge nach Wortgrenzen, so daß Silbentrennung 
nur wenn erforderlich angewandt wird. Starte die 
Suche bei letztem zulässigen Zeichen.}‘' | 
i := Maximallaenge; 
WortendeGefunden := false; 
WHILE NOT WortendeGefunden AND (i > MindestzeilenLaenge) DO 
BEGIN 
IF Zeile [i]l IN L[’ ’,Bindestrich] 
THEN 
BEGIN 
Restzeile := copy (Zeile, i+1l, Maximallaenge + 1 - 1); 
Zeile := copy (Zeile, 1, i); 
WortendeGefunden := true; 
.END; 
i := i-1l; 
END; 
IF NOT WortendeGefunden 
THEN 


InteraktiveTrennung; 
END (* von Trennen *); 


PROCEDURE ZeileBearbeiten; 
VAR 
x: Integer; 


BEGIN 
zeichen := ’ ’; 
WHILE NOT Eof (Quelle) AND NOT (Zeichen. = chr (13)) 
AND (length (Zeile) < Maximallaenge+1) DO 
{Füllen von Zeile) 
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BEGIN 
Read (Quelle, Zeichen); 
IF NOT (Zeichen = chr (13)) THEN Zeile := Zeile + Zeichen; 
END; | 
IF NOT eof (Quelle) AND (Zeichen = chr (13)) 
THEN Read (Quelle, Zeichen); 


{Auf das Wagenrücklaufzeichen muß in einer Textdatei 
noch das Zeilenvorschubzeichen chr (10) folgen, das 
nicht weiter benötigt wird. Es wird deshalb 

gelesen und ignoriert.} 


IF (length (Zeile) <= Maximallaenge) OR (Zeichen = ’ ') 


{wenn Datei oder Zeile in der Quelldatei zu Ende ist 
oder am Zeilenende gerade ein Wortende erreicht ist, 
muß nicht getrennt werden.) 


THEN 
Restzeile := ’’ 
ELSE 
Trennen; 
WriteLn (Senke, Zeile); 
GoToXY (1, AnzeigezeileNr); 
Write (Zeile); {Anzeige der gelesenen Zeile} 
FOR x:= length (Zeile) TO Maximallaenge + i DO write (’ '); 
(Löschen der abgetrennten Restzeichen) 
GoToXY (1,25); 


WriteLn;.: | ı {In der letzten Schirmzeile bewirkt dies, daß der 
ganze Schirminhalt nach oben geschoben wird.} 
Zeile := Restzeile; (Restzeile wird zum Anfang der nächsten 
Zeile} 


END (* von ZeileBearbeiten *); 


BEGIN (* von Hauptprogramm *) 
ProgrammVorstellung; 
:DateienBestimmen; 
Assign ‘(Quelle, QuellenName) ; 
"Assign (Senke, SenkenName); 
‚Reset (Quelle); 
Rewrite (Senke); 
zeile := '’; 

. WHILE NOT eof (Quelle) DO 

ZeileBearbeiten; 

Close (Quelle); 

. Close (Senke); 

END. (*. von Hauptprogramm *) ı 


Zur Erklärung 


Das Hauptprogramm ruft die Prozedur ZeileBearbeiten 
auf. Zur Bearbeitung einer Zeile gehört, daß das Trennen 
geregelt werden muß. Unter bestimmten Bedingungen 
erfordert Trennen eine InteraktiveTrennung. Obwohl lo- 
gisch also eine klare Hierarchie besteht, sind die Prozedu- 
ren nicht ineinander gesetzt. Formal stehen die drei Pro- 
zeduren gleichrangig im Programm. Das schadet nichts, 
weil vorher im Deklarationsteil aufgeführte Prozeduren 
von später deklarierten und gleichrangigen aufgerufen 
werden können. Hier ist dies sinnvoll, da sonst die 
Schachtelung der Prozeduren unübersichtlich würde. 

Ab Turbo-Pascal 4.0 können Sie mittels der Window- 
Prozedur auch einen Teil des Bildschirms zum TIextausga- 
befenster erklären. Es wäre dann nicht mehr erforderlich, 
daß die Bedienungshinweise immer neu in die oberen 
Bildzeilen geschrieben werden. 

Die Zeilenendeabfrage gestaltet sich beim zeichenwei- 
sen Lesen der Datei etwas mühsam, weil das Zeilenende 
üblicherweise durch die beiden Zeichen Carriage return 
(„Wagenrücklauf”, ASCII-Code 13) und Line feed (,„Zei- 
lenvorschub”, ASCH-Code 10) signalisiert wird. Wie oben 
schon erwähnt, gibt es Pascal-Dialekte, bei denen Sie von 
einer Read-Operation nie den Zeilenende-Code erhalten. 
Wenn Sie wissen wollen, ob die Zeile zu Ende ist, müssen 
Sie die Funktion EoLn benutzen. Das Programm kann 
sich dadurch sogar vereinfachen. 

Im nächsten Kapitel wird eine Anweisung eingeführt, 
welche in einer Situation, wo eine umfangreiche Fallun- 
terscheidung ansteht (etwa wie oben in der Prozedur Ver- 
arbeiteEingabe) das Aufschreiben der Fälle erleichtern 
kann. 


Aufgaben 


1. Stellen Sie sich vor, daß Sie nur Zugang zu einem Druk- 
ker ohne die deutschen Sonderzeichen haben. Sie müssen 
deshalb ß und die Umlaute in Buchstabenkombinationen 
auflösen. Schreiben Sie ein entsprechendes Programm. 

2. Entwerfen Sie ein Ausdruckprogramm, mit dem Sie 
Ihre-Programmcodes übersichtlich ausgeben können: mit 
Zeilennumerierung, korrektem Seitenvorschub, eventu- 
ell mit Seitennumerierung. Oft kann es praktisch sein, zu- 
sätzliche Leerzeichen an den Beginn jeder Zeile zu setzen, 


| Das Silbentrennprogramm 


Textdateien | 
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um vom Papierrand wegzurücken. Sie können auch ent- 
sprechend dem Pascal-Text zusätzliche Einrückungen 
vornehmen oder Leerzeilen schreiben lassen. Die Mög- 
lichkeiten sind fast unbegrenzt. 

3. In der Abteilung Text Generators können Sie ein Pro- 
gramm aufnehmen, das in einem Text besonders gekenn- 
zeichnete Zahlen heraussucht, deren Summen bildet und 
diese in den Ausgabetext setzt. Mit diesem Programm 
können Sie Ihre Rechnungen, Mahnungen etc. automat- 
isch an unterschiedliche Daten anpassen. Sie können als 
Kennzeichnung etwa das Summenzeichen ’}/ (ein grie- 
chisches großes Sigma) verwenden. Jede Zahl, die mit 
diesem Zeichen beginnt, wird aufsummiert, das Ergebnis 
(im durch die Sternchen beschriebenen Format) an der 
Stelle angezeigt, an der ’&‘ ohne folgende Ziffern steht. 
Ihr Programm würde dann aus dem Textauszug Abbil- 
dung 10-2 den Textauszug Abbildung 10-3 produzieren. 

4. Werten Sie die Ökosystem-Simulation des letzten Ka- 
pitels grafisch aus. Lassen Sie das eigentliche Simula- 
tionsprogramm die Daten noch zusätzlich auf Diskette 
schreiben. Experimentieren Sie mit Programmen, die die 
Daten lesen, durch Dividieren und Runden auf eine pas- 
sende Größe bringen und in ein Koordinatensystem ein- 
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11 Menü-Steuerung 
von Programmen 


und Mehrfachauswahl 


Zur Gestaltung einer Menü-Oberfläche - Mehrfach- 
auswahl mit IF-THEN-ELSE - Die Menü-Schleife - 
Die CASE-Anweisung - Einfache Eingabekontrollen 
und die REPEAT-Anweisung - Die CASE-Anweisung 
außerhalb von Menüs - Aufgaben 


Was darf es sein, soll der Computer wie ein Wirt den Be- 
nutzer oder die Benutzerin fragen und gleichsam eine 
Speisekarte vorlegen. Der Gast braucht nur auf eine der 
angebotenen Speisen zu zeigen, und das Gewünschte 
wird serviert. Ein solcher Umgang „a la carte” mit dem 
Computer beziehungsweise des Programms mit seinen 
Anwendern gilt als nutzungsfreundlich. Weil „Speise- 
karte” auf englisch „menue“ heißt, wird das Verfahren 
„Menüsteuerung” beziehungsweise „Menüführung“ ge- 
nannt. 

Beim Programmieren stellen Sie mit Hilfe von „Me- 
nüs“ eine (teilweise willkürliche) logische Gliederung des 
bearbeiteten Problems her, die sich mehrstufig im Menü- 
baum (der hierarchisch gegliederten Abfolge von Menüs, 
Untermenüs, Unter-Untermenüs und so fort) spiegelt. 
Die Menüs bilden zugleich die äußere Form, in der das 
Programm Mitteilungen macht und Eingaben entgegen- 
nimmt, das heißt seine Benutzungsoberfläche. 


Zur Gestaltung 
einer Menü-Oberfläche 


Als grundsätzliche Forderungen an die Gestaltung von 
Menüs lassen sich stellen: 


OD Menütexte sollten genau, plastisch und allgemeinver- 
ständlich sein. | 

DO Sich rasch überlebende Wendungen und „Gags” sind 
zu meiden, ebenso unnötige Computerfachausdrücke 
oder eingestreute englische Begriffe in einem deutschen 
Text. 


Forderungen 


Menü-Steuerung von Programmen | 
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Beispiel 


M Die Menüpunkte sollten erläutert sein, aber die Zusatz- 
informationen müssen grafisch auf dem Bildschirm ab- 
gesetzt erscheinen (so daß sie leicht übersprungen wer- 
den können, wenn das Programm vertraut geworden 
ist). 

O Die Bildschirmfläche sollte klar und übersichtlich ge- 
gliedert werden. Für ähnliche Funktionen (Überschrift, 
Menüpunkte, Erklärung, Eingabe) ist grundsätzlich der 
gleiche Platz und dieselbe Bedienungsweise in den di- 
versen Menüs oder Untermenüs vorzusehen. ; 

DO Die grafischen Möglichkeiten, die ein.System bietet 
(Linien, unterschiedliche Helligkeiten) sollten zur Ge- 
staltung genutzt werden, aber es ist sparsam und vor- 
sichtig mitihnen umzugehen (sonst irritieren die Effek- 
tenur). 

O Bei Farbbildschirmen sollten Texte, die in einem Zug 
gelesen werden, nicht in mehreren Farben erscheinen 
(für das Auge bedeutet jede Umstellung auf eine neue 
Bildschirmfarbe eine zusätzliche Anstrengung). 


Aber nicht nur die Formulierungen in Programmel- 
dungen und Menüs, sondern auch deren Abfolge, der 
Aufbau des Programms sollte weitestmöglich natürlich 
erscheinen. Das Programm sollte grundsätzlich entlang 
den Gesichtspunkten konstruiert sein, die eine Person in 
der entsprechenden Situation auch ohne das Programm 
berücksichtigen würde. Was die Bedienung angeht, soll 
ein Programm sich auch an unbewußten Erwartungen 
und Gewohnheiten, an Assoziationen und Verhaltens- 
weisen orientieren. Der Erfolg der Maus als Gerät für die 
Bewegung des Cursors am Schirm beruht’ auf diesem 
Prinzip. 


t 


Mehrfachauswahl mit IF-THEN-ELSE 


Als Beispiel soll ein Programm wahlweise eine Glück- 
wunschkarte zum Geburtstag, eine Einladungskarte zur 
Geburtstagsfeier, eine Einladung zum Klassentreffen 
oder eine Gratulationskarte zur bestandenen Prüfung auf 
den Bildschirm (oder auf den Drucker) zeichnen. Offen- 
sichtlich werden die vier Prozeduren GeburtstagsKarte, 
GeburtstagsEinladung, KlassentreffenEinladung, Pruefungs- 
Gratulation benötigt. Eine’ Prozedur MenueAnzeige dient 


‚dazu, die Möglichkeiten, die das Programm bietet, zu er- 


| IF-THEN-ELSE 


läutern. Je nach der Eingabe auf eine STRING-Variable 
Anlass soll die Prozedur für die entsprechende Karte auf- 
gerufen werden. In der einfachsten Form sähe dann das 
Programm KartenLaden folgendermaßen aus: 


PROGRAM KartenLaden; 
USES crt, printer; 


VAR 
Anlass: STRING [80]; 
PROCEDURE GeburtstagskKRarte; 
BEGIN 
U...) 
END (* von GeburtstagsKarte *); 


PROCEDURE GeburtstagsEinladung; 
BEGIN 


{ oo } 
END (* von GeburtstagEinladung *); 


PROCEDURE KlassentreffenEinladung; 
BEGIN 
sie 5 
END (* von KlassentreffenEinladung *); 


PROCEDURE PruefungsGratulation; 
BEGIN 
ee 2 
END (* von Pruefungsgratulation *); 


PROCEDURE MenueAnzeige; 
BEGIN 


END {* von MenueAnzeige *); 


BEGIN (* von Hauptprogramm *) 


MenueäAnzeige; 
ReadLn (Anlass); 
IF Anlass = 'Geburtstag’ 
THEN GeburtstagsKarte 
ELSE 
IF Anlass = Geburtstagsfeier’ 
THEN GeburtstagsEinladung 
ELSE 
IF Anlass = 'Klassentreffen’ 
THEN KlassentreffenEinladung 
ELSE 
IF Anlass = ’Prüfung bestanden’ 


THEN Pruefungsgratulation 
ELSE Write (’ Unzulässige Eingabe ’); 
END. 
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Um eine Menü-Auswahl zu programmieren, kann also 
mit geschachtelten IF-THEN-ELSE- mr gear- 
beitet werden. 

„Flache“ Hier ist allerdings kein THEN-Teil, sondern nur der je- 
Fallunterscheidung weilige ELSE-Teil weiter aufgegliedert. Das Programm 
mit ELSE-IF gehtim Grunde nur eine Liste von Möglichkeiten der Rei- 
he nach durch, bis es bei einer zutreffenden angekommen 
ist. In Worten läßt sich das ganz gut nachvollziehen: 
„Handelt es sich um den Fall ‚Geburtstag‘? Wenn ja, gib 
die Karte aus, wenn nein, schaue weiter: Ist es eine ‚Ge- 
burtstagsfeier"? Wenn ja ...” Es liegt also keine tiefe Schach- 
telung, sondern eine „flache“ Ansammlung gleichberech- 
tiger Fälle vor: 


IF Anlass = '"Geburtstag‘’ 
THEN GeburtstagsKarte 
ELSE IF Anlass = Geburtstagsfeier’ 
THEN GeburtstagsEinladung 
ELSE IF Anlass = ’Klassentreffen’ 
THEN RKlassentreffenEinladung 
ELSE IF Anlass = ’Prüfung bestanden’ 
THEN Pruefungsgratulation 
ELSE Write (’ Unzulässige Eingabe ’); 
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. Abbildung 11-1: Fallunterscheidung mit IF- THEN-ELSE 
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Machen Sie sich auch anhand des Struktogramms diese 
spezielle Form der mehrfachen Fallunterscheidung klar. 

Das Programm bedarf aber in mehrfacher Hinsicht 
noch der Verbesserung. Der erste Punkt betrifft die Kor- 
rekturmöglichkeit für unzulässige Eingaben, das heißt 
für den Fall, daß der eingetippte Anlass mit keinem der 
STRINGs ’Geburtstag‘, ’Geburtstagsfeier‘, "Klassentref- 
fen’, ’Prüfung bestanden’ übereinstimmt. Bei so langen 
Wörtern oder Wortkombinationen ist ja die Gefahr des 
Vertippens relativ hoch. Wenn auf Anlass keiner der vor- 
gesehenen Werte steht, erhalten die Benutzer nach der 
obigen Fassung des Programms nur die Nachricht, daß 
sie eine „Unzulässige Eingabe” getätigt haben, und das 
Programm endet. Sie können dann das Programm erneut 
aufrufen und es nochmal versuchen. Dieses Verfahren ist 
unbefriedigend, weil ein Programm mindestens in Situa- 
tionen, in denen Fehler leicht auftreten können, in sich 
selbst die Gelegenheit zur Wiederholung fehlerhafter Ein- 
gaben bieten sollte. Jede solche Korrekturmöglichkeit 
verlangt die Anwendung einer Schleife, einer Wiederho- 
lungsstruktur. Am einfachsten läßt sich dies im Beispiel 
erreichen, indem die ganze Menü-Auswahl in eine Schlei- 
fe gesetzt wird. 


Die Menü-Schleife 


Führen Sie eine boolesche Variable MenueLaeuft ein und 
setzen Sie sie am Anfang des Hauptprogramms auf true. 
Der bisherige Inhalt des Hauptprogramms dient als Inne- 
res der Wiederholungsstruktur: 


WHILE MenueLaeuft DO 
BEGIN 


END; 


Damit diese Schleife eine Chance auf ein ordentliches 
Ende bekommt, fügen Sie dern Menü (am besten als letz- 
ten Punkt) die Option „Beenden der Kartenerstellung” 
hinzu. Entsprechend ergänzen Sie die IF-THEN-ELSE- 
Schachtelung um den Anlass "Beenden der Kartenerstel- 
lung‘ (in diesem Fall wird die Schleifenkontrollvariable 
auf false gesetzt). Das Programmstück lautet dann: 


| IF-THEN-ELSE 


Behandlung von 
Fehleingaben 
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Programmtest mit 
Dummy-Prozeduren 


ELSE 
IF Anlass = ’Prüfung bestanden’ 
THEN Pruefungsgratulation 
ELSE . 
IF Anlass 
= "Beenden der Kartenerstellung’ 
THEN MenueLlaeuft := false 
. ELSE Write (' Unzulässige Eingabe ’); 


Wenn Sie sich nicht die Arbeit machen möchten, die 
Prozeduren für die Karten im einzelnen auszuführen, so 
wählen Sie die gleiche Vorgehensweise, die-auch bei der 
Entwicklung größerer Programme angewandt wird: 
Schreiben Sie sogenannte Dummy-Prozeduren, die nicht 
vollständig ausgearbeitet sind, sondern im wesentlichen 
anzeigen, daß sie aufgerufen werden. Eine Dummy-Pro- 
zedur Geburtstagskarte könnte zum Beispiel so aussehen: 


PROCEDURE Geburtstagskarte; 


BEGIN 
ClrScr; 


. 


Write (? kr Geburtstagsglückwunsch ! ’)3 


Write (' WERE EREREE U) 5 


WriteLln; WriteLln; 
Write {(’(Aufruf Prozedur Geburtstagskarte) ’); 


Writeln; 


END (* von Geburtstagskarte *); 


Anregung 


Aber vielleicht möchten Sie doch die eine oder andere 


. Prozedur ganz ausführen. Als Anregung mag Abbildung 


11-2 auf Seite 169 dienen (für die gepunktete Stelle sollten 
Sie in der Prozedur eine Eingabemöglichkeit für’ den Na- 
men vorsehen). 

In der Regel sind Menüs ähnlich wie im umgebauten 
Beispiel in Wiederholungsstrukturen eingebaut. Auf die- 
se Weise wird nicht nur die Korrektur von Fehleingaben 
möglich, sondern die verschiedenen Optionen können 
auch mehrfach aufgerufen werden. 


Menüs mit Auswahl über Char-Werte 


Daß die unterschiedlichen Möglichkeiten, die das Pro- 
gramm bietet, auf dem Bildschirm ausführlich erläutert 
werden, ist eine gute Sache. Aber für die Auswahl sollte 
das Tippen möglichst weniger Tasten genügen. Dadurch 
verringert sich auch die Wahrscheinlichkeit unzulässiger 


| Die Menü-Schleife 
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Abbildung 11-2: Grafik zur Geburtstagskarte 


Optionsaufrufe. Meist sehen daher Menüs so aus, daß 
den verschiedenen Optionen Nummern (eventuell Funk- 
tionstastennummern) zugeordnet sind. Oder ein einzel- 
ner, in der Menü-Auflistung hervorgehobener Buchstabe 
bezeichnet die jeweilige Option. Im Beispiel von oben: 


. 
m u m u m put rn na m mn Tel ——m— 6-3 Tom Do. —| 


Der Karten ]lea den 
Auswahl 
es 
| 
Glückwunsch zum Geburtstag .....c.sercurreurrene 1 
Einladung zur Geburtstagsfeier .......ceceerecor 2 
| Einladung zum Klassentreffen ...:.cnemenneseenee 3 | 
| Gratulation zur bestandenen Prüfung ...........- 4 | 
Progranm.Bbeenden- uns ai ier 0 
Ihre wahl: 
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Abbildung 11-3: Menü zumi „Kartenladen“, Version 1 


Oder: 
Der Karten ]a den 

| Auswahl 
| = oo 
Glückwunsch zum Geburtstag ......r00rrreerneen ne G 

Einladung zur Geburtstagsfeier ........rerreerse F 

Einladung zum Klassentreffen ......c:ceerueecune K 
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Abbildung 11-4: Menü zum „Kartenladen“, Version 2 
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Menü Oft muß.mit dem Platz auf dem Bildschirm gegeizt 
in Zeilenform werden: Dann kann eine Menüleiste der zweiten Artauch 
in.ein oder zwei Zeilen statt in Spalten untergebracht 
‚werden: Es gilt der erste Buchstabe als Kennzeichen für 
die jeweilige Option: | 





Geburtstagsglückwunsch, Feier (Einladung), | 
Klassentreffen (Einladung), Prüfung bestanden, Ende 





um. _ N. mn An ww 0010... mon mm ma dan vr menge re 


Abbildung 11-5: Menü zum „Kartenladen”, Version 3 


Bei Kurzeingaben darf die Variable für die Eingabe der 
Wahl als Integer oder Char genommen werden. Solange 
‘keine zweistelligen Zahlen vorkommen, können auch 
Ziffern zur Kennzeichnung von a als Char 
behandelt werden. 

Char-Eingabe Ist die Menü-Auswahlvariable, im Beispiel Anlass, vom 
ohne Bestätigung Typ Char, genügt dann das Tippen einer einzigen Taste, 
mit Return umdie Auswahl im Menü zü vollziehen: Damit eine 
Char-Variable ohne Bestätigung mit Return eingegeben 
werden kann, verwenden Sie in Turbo-Pascal bis Version 

3.x den KBD-Eingabekanal. 


Read (kbd, Anlass); 


’. 


:Ab Versiön 4.0 lautet die entsprechende Anweisung 
(wofür ein USES der Einheit Crt deklariert sein muß): 


Anlass := Readkey; 


Wenn das eingetippte Zeichen auf.dem Bildschirm er- 
scheinen soll, muß noch ein ;Write (Anlass); ergänzt 
werden. 

Sobald beim fallweisen Durchgehen einer Liste von 
‘Werten mit Integer- oder mit Char-Größen gearbeitet 
wird, kann die Klarheit der zugrunde liegenden Überle- 
gung und die Übersichtlichkeit des Menüs auch in einer 
entsprechend übersichtlichen Pascal-Anweisung wider- 
gespiegelt werden. 


Die CASE-Anweisung 


In der CASE-Anweisung (case, „Fall”) wird nicht ein ein- 
zelner boolescher Ausdruck auf wahr oder falsch (wie bei 
IF) untersucht. Stattdessen wird eine Liste von möglichen 
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Werten - die Falliste - auf Übereinstimmung mit dem 
Wert einer vorgegebenen Variablen beziehungsweise ei- 
nes vorgegebenen Ausdrucks abgefragt. Im Beispielpro- 
gramm kann die IF-THEN-ELSE-Schachtelung gegen fol- 
gende CASE-Struktur ausgetauscht werden. Diese hat 
eine „flache“, gut verständliche Form: 


CASE Anlass OF 
'G’: Geburtstagskarte; 
'F’: GeburtstagsEinladung; 
'K’: KlassentreffenEinladung; 
'Pp': Pruefungsgratulation; 
’E': Menuelaeuft := false; 
END; 


Umschrieben heißt dies: Im Fall, daß Anlass den Inhalt 
'G’ hat, führe Geburtstagskarte aus, im Fall, daß Anlass den 
Inhalt ’F’ hat, rufe GeburtstagsEinladung auf, im Fall ’K’ 
KlassentreffenEinladung und so fort. 


Meist erscheint auf dem Bildschirm der Großbuchstabe ‘ 


als Kennzeichnung einer Menü-Option. Aber der Klein- 
buchstabe ist leichter zu tippen, weil dafür die Umschalt- 
taste nicht betätigt werden muß. Am besten wäre es, 
wenn Drücken des Groß- wie des Kleinbuchstabens den- 
selben Effekt hätten. In der CASE-Anweisung läßt sich 
dies ganz einfach bewerkstelligen, da auch mehreren 
(durch Komma getrennten) Zeichen gemeinsam eine An- 
weisung zugeordnet werden kann. Dies sieht so aus: 


CASE Anlass OF 
'G'’, 'g’: GeburtstagsKarte; 
'F', '£f': GeburtstagsEinladung; 
'K', 'k’: KlassentreffenEinladung; 
'p', 'p': Pruefungsgratulation; 
’E', '’e’: Menuelaeuft := false; 
END; 
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Abbildung 11-6: Struktogramm zur CASE-Anweisung 





Zusammenfassung 


mehrerer Fälle 


'E°; 


MenueLloeuft 
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Struktogramm 


Das Struktogramm der CASE- Anweisung beziehungs- 
weise der fallweisen Auswahl bringt gegenüber’ der ge- 


-stuften Abfrage mit geschachtelten IF-THEN-ELSE-An- 


weisungen den gleichen Rang der VErZCILEAENEN Fälle 
deutlich zum Ausdruck. 


Syntax der CASE-Anweisung 


Die allgemeine Form der CASE-Anweisung lautet: 


CASE Auswahlausdruck OF 
Wertelistel : Anweisungl ; 
Werteliste?2 : Anweisung2 ; 


WertelisteX : AnweisungX ; 
END; 


Das END, das hier steht, schließt die Aufzählung der 


“ Fälle in der CASE-Anweisung ab. Es ist ein typisches Bei- 


Auswahlausdruck 
mit Operation 


spiel für ein END, dem kein vorausgehendes BEGIN kor- 
respondiert. 

Der Auswahlausdruck ist eine Variable, eine Konstante 
oder ein zusammengesetzter Ausdruck, dessen ‚Wert das 
Programm noch berechnen muß. Sein Gesamttyp muß 
ein Aufzählungstyp sein, das heißt in erster Linie Char 
oder. Integer. Nicht zulässig sind Real und STRING. 
(Wenn zwischen ganzen Wörtern zu unterscheiden ist 
wie bei der ersten Fassung des Beispielprogramms, kann 
also die CASE-Anweisung nicht verwendet werden.) Ein 
Aufzählungstyp ist dadurch gekennzeichnet, daß er eine 
abgegrenzte Anzahl von Werten umfaßt, die in natürli- 
cher Reihenfolge durchlaufen werden können. Der Com- 
puter registriert, welche Fälle behandelt sind und welche 
nicht. Bei Char geht er die Zeichensatztabelle durch, bei 
Integer die ganzen Zahlen. 

Wie gesagt, kann ein Auswahlausdruck durchaus eine 
Rechenoperation enthalten. Wenn Wierfell und Wuerfel2 
Integer-Größen sind, können Sie zum Beispiel folgende 
Anweisung bilden: 


CASE Wuerfell + Wuerfel2 OF 
2, 4, 6, 8, 10, 12: 
Write (’Gesamtaugenzahl ist gerade’); 
382 7. 94 31 
Write (’Gesamtaugenzahl ist ungerade’); 
END; 


| Syntax der CASE-Anweisung 


Die Werteliste kann einen oder mehrere durch Komma Werteliste und 
abgetrennte Werte (keine Variablen und keine Rechen- Verbundanweisung 
ausdrücke) enthalten, die alle vom selben Typ wie der 
Auswahlausdruck sein müssen. Für jede der Anweisun- 
gen darf auch eine mit BEGIN-END geklammerte Folge 
von Anweisungen, eine Verbundanweisung, stehen. Die- 
se sollte dann aber kurz bleiben, da sonst die Übersicht- 
lichkeit der CASE-Anweisung verloren geht. 

Haben Sie bemerkt, daß beim Übergang auf die CASE- 
Anweisung die Meldung bei unzulässigen Eingaben ver- 
loren gegangen ist? Das Programm hat, sofern keiner der 
vorgesehenen Buchstaben getippt wurde, einfach das 
Menü wiederholt und damit erneut zur Eingabe aufge- 
fordert. Dies muß nicht in allen Pascal-Dialekten so funk- 
tionieren. In Standard-Pascal ist eigentlich vorgeschrie- 
ben, daß einer der Fälle der CASE-Anweisung zutreffen 
muß. Wenn der Wert des Auswahlausdrucks keinem Ele- 
ment der Falliste entspricht, soll das Programm mit einer 
Fehlermeldung abbrechen. Wie mit Werten umgegangen 
werden kann, die nicht in der Falliste auftauchen, wird 
jetzt genauer betrachtet. 


Die „anderen“ Werte 
bei einer CASE-Anweisung 


Bei einer Kette geschachtelter IF-THEN-ELSE-Anweisun- 
gen erfaßt der letzte ELSE-Teil alle vorher nicht eigens be- 
handelten Fälle. In vielen Pascal-Dialekten wird, um eine 
analoge Möglichkeit bei Verwendung einer CASE-An- 
weisung zu Schaffen, so etwas wie ein „Sonst-Fall” als 
letztes Glied der Falliste zugelassen. In Turbo-Pascal dür- 
fen Sie schreiben: 


CASE Anlass OF 

'G’, '’g’: Geburtstagskarte; 

’F’, '£’: GeburtstagsEinladung; 

'K’, 'k’': KlassentreffenEinladung; 

’p', 'p’: Pruefungsgratulation:; 

’E’, ’'e’: MenueLaeuft := false 

ELSE Write (’ Unzulässige Eingabe ’); 
END; 


. . . z . 
Vorsicht: Setzen Sie keinen Doppelpunkt hinter ELSE! !; Merkzettel 
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Ersatz durch eine 
IF-THEN-ELSE- 
Konstruktion 


PROCEDURE MenueEingabe; 
CONST 


Benutzen Sie eine Pascal-Variante, die den „Sonst-Fall” 
nicht kennt oder möchten Sie so weit möglich ein univer- 
selles Pascal schreiben, das nicht auf den Compiler einer 
bestimmten Firma festgelegt ist, können Sie die CASE- 
Anweisung in eine einfache Entscheidungsstruktur mit 
IF-THEN-ELSE einbauen: 


IF Anlass IN 
767,9 %, EI FE’, K’ KPD’, Et, et] 
THEN 
CASE Anlass OF 
’'G’'’, 'g': Geburtstagskarte; 
'F', '£’; GeburtstagsEinladung; 
'K’, 'k': KlassentreffenEinladung; 
'p’, 'p’: Pruefungsgratulation; 
'E'’, ’e’:z MenueLaeuft := false 
END 
ELSE Write ({' Unzulässige Eingabe ’); 


Einfache Eingabekontrollen und die 
REPEAT-Schleife 


Die Kombination einer IF- mit einer CASE-Anweisung ist 
richt sonderlich elegant, weil die zulässigen Fälle prak- 
tisch doppelt aufgelistet und beim Programmablauf auch 
zweimal mit dem Wert von Anlass verglichen werden. 
Ließe sich nicht, anstatt eine Eingabe als unzulässig zu 
bemängeln und doch mit ihr umzugehen wie mit einem 
„normalen“ Punkt des Menüs, sicherstellen, daß der 
„Sonst-Fall” nicht eintritt? Mit der folgenden Program- 
miertechnik verlangen Sie bei unzulässiger Eingabe vom 
Benutzer direkt eine Korrektur. Die Kontrolle der Eingabe 
findet in einer Schleifenkonstruktion statt: 


Fehlermeldung = ' nicht zulässig! ’; 


VAR 

Zeichen: Char; 
BEGIN 

Zeichen := Readkey; 


’ 


Write (Zeichen); 
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(In Turbo-Pascal 3.x: Read (kbd, 
Zeichen); } 


WHILE NOT (Zeichen IN ['’G’,'’g’,'F’,'£’,’K’ 
DO ; 
BEGIN 
Write (Fehlermeldung); 
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zscR! zip? td, 7B’r;te']) 


Zeichen := ReadKey; {Für 3.x siehe oben} 


Write (Zeichen); 
END; 
Anlass := Zeichen; 
END; 


Es wird ein Zeichen eingelesen und auf den Bildschirm 
geschrieben. Solange die Eingabe nicht zu den zugelasse- 
nen zählt, wird jedesmal eine STRING-Konstante Fehler- 
meldung ausgegeben und Eingabe und Bildschirmecho 
werden wiederholt. Am Schluß erhält Anlass einen gülti- 
gen Wert zugewiesen (Sie hätten auch von vorneherein 
mit der Variable Anlass arbeiten können). 

In vielen menügeführten Programmen erscheint keine 
optische Fehleranzeige. Um störende Zusatztexte auf 
dem Bildschirm zu vermeiden, läßt man den im Compu- 
ter eingebauten Lautsprecher mittels spezieller, in den 
meisten Programmiersprachen vorhandener Funktionen 
warnende Brumm-, Pfeif- oder Glockentöne erzeugen. 
Die primitivste Form, einen kurzen Piepser, können Sie 
schon über den ASCH-Code verwirklichen. Die Ausgabe 
von Zeichen Nr. 7 erfolgt in der Regel nicht optisch auf 
dem Bildschirm, sondern akustisch. Probieren Sie folgen- 
de Anweisung aus: 


Write ( chr (7) ); 


Bei der einfachsten, aber durchaus effektiven Form ei- 
ner Eingabekontrolle wird gar keine Fehlermeldung aus- 
gegeben. Kommentarlos erzwingt das Programm eine er- 
neute Eingabe, bis endlich eine zulässige Taste getippt ist. 
Dies stellt eine der wenigen Situationen dar, in denen 
auch eine bisher nicht behandelte Variante der Wiederho- 
lungsstruktur, die REPEAT-UNTIL-Schleife, genutzt wer- 
den kann. 

REPEAT ... UNTIL heißt „wiederhole ... bis“ und läßt 
sich genau so anwenden, wie es die Alltagssprache nahe- 
legt. Zwischen REPEAT und UNTIL können Sie eine oder 
mehrere Anweisungen schreiben. Die Anweisungsfolge 
wird wiederholt ausgeführt, bis eine Finalbedingung (En- 
debedingung) erfüllt ist. Als Finalbedingung fungiert ein 
boolescher Ausdruck, der hinter UNTIL steht. 


Akustische 
Fehleranzeige 


REPEAT-UNTIL 
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Eine kurze Fassung der Eingabeprozedur, die schon 
das Wesentliche leistet, würde zum Beispiel so aussehen: 


' PROCEDURE MenueEingabe2; & 
VAR 
Zeichen: Char; 
BEGIN ' 
REPEAT 
Zeichen := Readkey {bzw. Read (kbd, Zeichen))} 


:{Hier dürfen weitere: Anweisungen stehen} 
UNTIL . i 
Zeichen IN (’G’,’g’, Er, TE, ’R’,'kt,'pr,'p’,'E','et]; 
Write (Zeichen); 
Anlass := Zeichen; 
END; 


Problematik von Die REPEAT-UNTIL-Anweisung läßt an Verständlich- 
REPEAT-UNTIL keit nichts zu wünschen übrig, birgt jedoch einen großen 
Nachteil. Wie ihre Darstellung im Programmablaufplan 
zeigt, läuft bei ihr der Programmfluß in die zu wiederho- 
lende Anweisungsfolge hinein, selbst wenn die Finalbe- 
dingung bereits vorher erfüllt ist. | 
Wenn Sie zum Beispiel einen wiederholten Dateizugriff 
mit REPEAT-UNTIL programmieren, so würde das Pro- 
gramm einen ersten Leseversuch auch dann starten, 
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Abbildung 11-7: PAP zur Wiederholungsstruktur mit REPEAT - 
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wenn die eof-Funktion von vorneherein (weil die Datei 
leer ist) Dateiende signalisiert, und abstürzen. Weil der 
Fall ungewöhnlich ist, wird er häufig übersehen. Das re- 
sultierende Fehlverhalten des Programms trägt einen ei- 
genen Namen: das Null-Fehlersyndrom („Fehler beim 0- 
ten Durchlauf”). 
Das Struktogramm der Wiederholungsstruktur mit RE- Struktogramm 
PEAT-UNTIL weist deutlich auf den ungeschützten Ein- REPEAT-UNTIL 
gang der Anweisung hin. 
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Abbildung 11-8: Struktogramm für Wiederholungsstruktur mit 
REPEAT | 
REPEAT-UNTIL darf grundsätzlich nur angewandt Die gleichwertige 
werden, wenn gewiß ist, daß mindestens ein Schleifen-- WHILE-Konstruktion 
durchlauf stattfinden soll. Im übrigen kann jede REPEAT- 
UNTIL-Schleife durch eine WHILE-Konstruktion ersetzt 
werden. Statt: 


REPEAT Anweisung_X 
UNTIL Finalbedingung_Erreicht; 


können Sie stets schreiben: 


Anweisung_X; 
WHILE NOT (Finalbedingung_Erreicht) DO 
BEGIN ” 
Anweisung_X; 
END; 


Die zweite, syntaktisch gleichwertige Form bedeutet 
etwas mehr Schreibarbeit, drückt aber unübersehbar aus, 
daß Anweisung_X einmal unabhängig von Finalbedin- 
gung_Erreicht ausgeführt wird. 
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Schon bei etwas raffinierten Eingabekontrollen:ist die 
Anwendung einer WHILE-Schleife unerläßlich..... 


t r 


Eine komfortablere Eingabekontrolle 


Wenn das Programm in professioneller Manier erlauben 
soll, falsche Eingaben auf dem Bildschirm zu’ übertippen, 
können Sie entweder durchgängig mit GOTOXY arbeiten 
oder einen kleinen Trick anwenden. Das Zeichen Nr. 8 
des ASCIi-Codes wird auch Backspace genannt.. und 
bewirkt auf.dem Bildschirm tatsächlich, daß der Cursor 
einen Schritt zurück (nach links) wandert. Damit ist die 
folgende Komfortfassung der Eingabekontrolle program- 
mierbar (die den Trick in drei kleinen Hilfsprozeduren 


ausnutzt): 


PROCEDURE MenueEingabe?3; 


CONST 

Fehlermeldung = ’ nicht zulässig! ’; 
VAR 

-Zeichen : Char; 

iı : Integer; 


PROCEDURE CursorEinZeichenNachLinks; 
BEGIN 

Write ( chr (8) ); 
END; 


PROCEDURE VorFehlermeldungZurueckgehen; 
BEGIN . | ' " 
FOR i := 1 TO Length (Fehlermeldung) + 1 DO 
CursorEinZeichenNachLinks; 
END; 


PROCEDURE LoescheFehlermeldung; 
BEGIN 
FOR i := 1 TO Length (Fehlermeldung) DO 
Write (' '); 


FOR i := 1 TO Length (Fehlermeldung) DO 
CursorEinZeichenNachLinks; 
END; ® 
BEGIN 


P3 

Zeichen := Readkey; {in Turbo 3.x Read (kbd, Zeichen);) 

Write (Zeichen); 

WHILE NOT (Zeichen IN Be ee A ne 
DO = 


BEGIN 
Write (Fehlermeldung); 
VorFehlermeldungZurueckgehen; 
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Zeichen := Readkey; {in Turbo 3.x Read (kbd, Zeichen);} 


Write (Zeichen); 
LoescheFehlermeldung; 
END; 
Anlass := zeichen; 
END; 


Der Effekt der sichtbaren Überprüfung der Eingabe 
wird noch deutlicher, wenn als letzte Anweisung in der 
Schleife ein Verzögerungsbefehl eingefügt wird, etwa: 
Delay (200);. 


Die CASE-Anweisung außerhalb 
von Menüs 


Die CASE-Anweisung kann nicht nur bei der Program- 
mierung von Menüs zur übersichtlichen und knappen 
Darstellung von Mehrfach-Fallunterscheidungen ver- 
wendet werden. Auch sonst gibt es nicht selten Situatio- 
nen, in denen man sich praktisch an einer Liste von Wer- 
ten orientiert. 

Angenommen, ein Drucker beherrscht nur den ameri- 
kanischen Standard-Druckzeichensatz. Um damit be- 
helfsmäßig einen Text auszugeben, in dem die deutschen 
Spezialzeichen verwendet wurden, soll ein kleines An- 
passungsprogramm entwickelt werden. Seinen Kern 
kann folgende Schleife bilden, in der mittels einer CASE- 
Anweisung die Umsetzung der kritischen Zeichen be- 
werkstelligt wird. (Datei muß als Typ Text deklariert und 
vorher eröffnet sein. Zeichen hat natürlich den Typ Char.) 


WHILE NOT eof (Datei) DO 
BEGIN 
Read (Datei, Zeichen); 
CASE Zeichen OF 


A’ : Write (Lst, 'ae'); 
rt : Write (Lst, 'ue’); 
’ö' : Write (Lst, 'oe’); 
‚Ä’ : Write (Lst, ’Ae’);. 
.Ö' : Write {Lst, 'Oe’); 


.ü : Write {Lst, ’Ue’); 


Beispiel 
Druckeranpassung 
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Werteabschnitte 
ın der Falliste 


Beispiel: 
CASE-Anweisung 
mit Integer- 
Auswahl-Ausdruck 


'B’ : Write (Lst, '’se’) 
ELSE Write (Lst, Zeichen) 
END; 


END; 


Für den ernsthaften Einsatz dieser Anweisungen emp- 
fiehlt sich übrigens, auch keine anderen Zeichen aus: der 
zweiten Hälfte der ASCII-Tabelle durchzulassen (die Zei- 
chen würden wahrscheinlich Chaos auf dem Drucker an- 
richten). Dafür müssen Sie lediglich das Write im ELSE- 
Teil der CASE-Anweisung noch einer entsprechenden 
Bedingung unterwerfen. Mit der ord-Funktion können Sie 
die ASCH-Nummer des gelesenen Zeichens feststellen: 


IF ord (Zeichen) < 127 
THEN Write (Lst, Zeichen) 


Wenn in.der CASE-Anweisung ein ganzer Abschnitt 
von Werten, etwa alle „normalen“ Kleinbuchstaben, als 
einziger Fall behandelt werden soll, müssen Sie die Buch- _ 
staben nicht alle einzeln hinschreiben. Sie bilden den Fall 
„von "a’ bis ’z’”, indem Sie zwei Punkte zwischen An- 
fangs- und Schlußwert des Abschnitts setzen. Unter Ab- 
schnitt ist dabei ein ununterbrochenes Teilstück aus der 
Werteliste des zugrundegelegten Aufzählungstyps, zum 
Beispiel der ASCII-Zeichensatztabelle, zu verstehen: :. 


CASE Zeichen OF 


‚är : Write (’ae’); 

‚o : Write (’ue’); 

‚5 .: Write ('oe’); 

‚gr : Write (’88’); 

'a'’..'z’ : Write (Zeichen); 
2...) 


END; 


Für ein weiteres kleines Beispiel einer CASE-Anwen- 
dung, in der diesmal mit Integer-Werten gearbeitet wird 
und ein Rechenausdruck als Auswahlkriterium dient, 
steht das folgende Programm. Es verlangt die Eingabe 
des Wochentags, auf den der Monatserste fällt, und’ kann 
dann zu einem beliebigen Tag des betreffenden Monats 
den Wochentag in Klartext ausgeben. 


PROGRAM KleinerKalender; 


USES crt, printer; 
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VAR 
ErsterTag : Integer; 
FraglicherTag : Integer; 


BEGIN 
ClrScr; 
WriteLn (’Geben Sie den Wochentag des Monatsersten ein ’); 
Write 
(’(Mo = 1, Di = 2, Mi = 3, Do = 4, Fr = 5, Sa = 6, So = T) '); 
ReadLn (ErsterTag); 


Writeln; 
WriteLlLn (’Geben Sie als ganze Zahl ein, von welchem Tag Sie ’); 
Write (‘den Wochentag wissen wollen: 5; 
ReadLn (FraglicherTag)}; 
Writeln;: 
CASE (ErsterTag + FraglicherTag - 1) MOD 7 OF 
1 : WriteLln (’Der ’, FraglicherTag, ’. ist ein Montag.’); 
2 : Writeln (’Der ', FraglicherTag, ’. ist ein Dienstag’); 
3 : Writeln (’Der ', FraglicherTag, '..ist ein Mittwoch’); 
4 : Writeln (’Der ’, FraglicherTag, °'. ist ein Donnerstag’); 
5 : WriteLln (’Der ’, FraglicherTag, °. ist ein Freitag’); 
6 : WriteLn (’Der ’, FraglicherTag, ’. ist ein Samstag’); 
0 : WriteLn (’Der ’, FraglicherTag, ’. ist ein Sonntag.’); 


END; 
END. 


Eine weitere Anwendung der CASE-Anweisung bildet Auswertung 
die Auswertung von Funktions- und Spezialtasten. Wie von Scancodes 
in Kapitel 7 erwähnt, liefert ab Turbo-Pascal 4.0 sowie in | 
Quick-Pascal die ReadKey-Funktion bei Betätigung einer 
dieser Tasten zunächst die ASCH-Nummer 0. Mit einer 
weiteren Abfrage des Tastaturkanals erhalten Sie den so- 
genannten Scancode als ASCII-Zeichen. Zum Beispiel 
können Sie auf folgende Art feststellen, welche Cursorta- 
ste betätigt wurde (Eingabe muß als Char-Variable dekla- 


riert sein): 
Eingabe : = Readkey; 
IF Eingabe = #0 
THEN 
BEGIN 
Eingabe : = Readkey; 


CASE Eingabe OF 
#75: {Cursor nach links wurde gedrückt}; 
#77: {Cursor nach rechts gedrückt}; 
#72: {Cursor nach oben); 


Menü-Steuerung von Programmen | x 
#80: {Cursor nach unten} 


END 
END; 


Den Scancode einer Taste oder Tastenkömbination sagt 
Ihnen das folgende winzige Programm (zum Verständnis 
beachten Sie, daß mit jedem Aufruf von ReadKey ein wei- 
teres Zeichen aus dem Tastaturkanal geholt wird): 


PROGRAM ScanCode; 
USES CRT; 
BEGIN 
IF Ord (Readkey) = 0 THEN 
WriteLn (’Taste ’, Ord (Readkey));' 
END. 


Das nächste Kapitel zeigt, wie Fallisten samt den erfor- 
derlichen Werten konstrujert werden können. 


Aufgaben 


1. Versuchen Sie, das Syntaxdiagramm der CASE-An- 
weisung zu zeichnen! 

2. Schreiben Sie das Programm zu Ende, das bei einem 
auf Diskette vorliegenden Text Umlaute und ’ß’ in die 
entsprechenden Buchstabenkombinationen auflöst. 

3. Ergänzen Sie das Prögramm KleinerKalender so, daß 
nach Eingabe des Monats abgeprüft wird, ob es den ange- 
gebenen Tag im betreffenden Monat überhäupt gibt (be- 
kanntlich hat der Januar 31 Tage, Februar - außer im 
schaltjahr - 28, März 31 und so weiter). 

4. Übersetzen Sie die folgende Anweisung formal in ei- 
ne gleichwertige Kombination einer REPEAT-Anweisung 
mit einer Entscheidungsstruktur: 


WHILE NOT Finalbedingung_Erreicht DO 
Anweisung_X; 


12 Aufzählungs-, 
Teilbereichs- 
und SET-Typen 


Werte, Variable, Typen - Zur allgemeinen Syntax der 
Typdeklaration - Selbstdefinierte Aufzählungstypen - 
Teilbereichstypen - SET-Typen - Aufgaben 


Ein Programm „modelliert” einen Ausschnitt aus der 
Wirklichkeit. Es soll einen Realitätsbereich in einem for- 
malen System widerspiegeln. Die (relative) Stimmigkeit 
der Modellkonstruktion hängt grundlegend von der De- 
finition passender Variablen und des richtigen Zuschnitts 
ihrer Typen ab: bei Personendatenverarbeitung wie bei 
Spielprogrammen, für Grafiksysteme wie für Textverar- 
beitung. Pascal zeichnet sich durch seine reichhaltigen 
Möglichkeiten zu eigenen Definitionen von Datentypen 
aus. Die Kreation sinnvoller Datentypen entlastet dann 
auch die Detailprogrammierung von nicht dorthin gehö- 
renden Problemen. Es erweist sich immer wieder, daß 
Strukturfragen in der Programmierung auf die Datenmo- 
dellbildung, die richtige Iypenkonstruktion zurückzu- 
führen sind. Nicht zuletzt wird mit einem durchdachten 
Typenkonzept auch dem Prinzip Rechnung getragen, 
daß Bedeutungen sich in Text und Aufbau des Pro- 
gramms selbst niederschlagen sollen. 


Werte, Variable und Iypen 


Die elementaren (einfachen) Standardtypen Char, Inte- 
ger, Real und Boolean wurden bereits beschrieben. Eine 
Variable vom Iyp Char hat als mögliche Werte die Zei- 
chen des Zeichensatzes. Eine Integer-Variable kann mit 
ganzen Zahlen belegt werden, eine Real-Variable mit De- 
zimalzahlen. Boolesche Größen tragen die booleschen 
Werte true oder false. Außerdem haben Sie den vordefi- 
nierten Spezialtyp STRING und den Standardtyp Text 
verwendet. Je nach Pascal-Dialekt gibt esnoch eine unter- 
schiedliche Zahl anderer solcher gebrauchsfertiger Ty- 
pen, die ohne weiteren Aufwand zur Verfügung stehen. 


Fertig vorliegende 
Typen 


Selbstdefinierte Typen | 


Drei Möglichkeiten, 
Typen selbst 
zu kreieren 


Es kann hier zwischen Standardtypen, das heißt Typen, die 
vom jeweiligen Pascal-System entsprechend den Vor- 
schriften von Standard-Pascal bereitgestellt werden, und 
allgemeinen vordefinierten Typen unterschieden werden. 

Um der Universalität möglicher Anwendungen ge- 
recht zu werden, können und sollen Sie sich in Pascal zu- 
sätzlich eigene Variablentypen schaffen. In einer Reihe 
von Situationen werden Sie sogar zu eigenen Typdefini- 
tionen gezwungen. Grundsätzlich gibt es drei Möglich- 
keiten, neue Typen zu kreieren: 

1. Sie können sich eigene neue Reihen von elementaren 
Werten ausdenken, analog der Zeichensatztabelle beim 
Typ Char beziehungsweise der Alternative false, true, die 
den Typ Boolean ausmacht. Auf diese Weise erhalten Sie 
einen selbstdefinierten Aufzählungstyp. 

2. Aus der geordneten Wertefolge eines Aufzählungs- 
typs können Ausschnitte als Teilbereichs- oder Aus- 
schnittstypen vereinbart werden. 

3. Das bei weitem wichtigste Mittel der Typenschöp- 
fung gilt „großen“ Objekten, die nicht mit elementaren 
Typen beschrieben werden können. In Pascal können Sie 
auf diverse Arten einen neuen Typ aus einfacheren Typen 
kombinieren, um zum Beispiel den Zusammenhang der 
auf eine Person oder ein Kartenspiel bezogenen Daten 
auszudrücken. Ein solcher Datentyp heißt dann „zusam- 
mengesetzt”, „komplex“ oder „strukturiert”. 

Am Schluß dieses Kapitels finden Sie die. SET-Typen er- 
klärt, das sind die noch am wenigsten kombinationsfreu- 
digen unter den zusammengesetzten Datentypen. In der 
Hauptsache werden die strukturierten Typen in Kapitel 
14 behandelt. Das vorliegende Kapitel ist vor allem den 
ersten beiden Arten der Typenkreation gewidmet, an de- 
ren Beispiel Sie ein erstes Verständnis des für gutes Pro- 
grammieren grundlegenden Typkonzepts in Pascal ent- 
wickeln sollen. | 


Typ, Variable, Werte 


Der Zusammenhang von Typ, Variablen und Werten läßt 
sich in einem Satz formulieren: Der Typ einer Variablen 
bestimmt die Werte, welche die Variable annehmen kann. 

Mit einem Begriff aus der Mathematik ausgedrückt, 
entspricht der Typ dem Definitionsbereich der Variablen. 
Das bedeutet, er umfaßt alle Werte, die auf die Variable 
mittels Wertzuweisung gesetzt oder in einer Eingabe ver- 
wendet werden dürfen. Das folgende Diagramm skiz- 
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VARIABLE TYP WERTE 
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Typdekloration 
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Abbildung 12-1: Variable - Typen — Werte 


ziert das Dreiecksverhältnis von Variablen, Werten und 
ihrem Typ: 

In der Variablendeklaration erklären Sie, welchem Typ 
eine (variable) Größe zuzurechnen ist. Mittels Wertzu- 
weisung oder Eingabe wird einer Variablen ein Wert, der 
laut ihrem Typ zulässig ist, zugewiesen. 

Welche Werte es sind, die zum jeweiligen Typ gehören, 
ist bei vordefinierten Typen dem Handbuch der Pascal- 
Implementation zu entnehmen. Bei einem selbstdefinier- 
ten Typ geben Sie im Programmtext das Spektrum der 
Werte selbst an, für die der Typ steht. Dies geschieht in 
einer sogenannten Typdeklaration (oder Typdefinition). 
Zum Beispiel kann der TypKleinbuchstabe definiert wer- 
den durch (genauere Erklärung folgt unten): 


TYPE 
TypkKleinbuchstabe = ’a’ .. '’z’; 


Entscheidend ist, daß der Typ eine formale, syntakti- Formale Prüfkriterien 
sche Bestimmung der zulässigen Werte einer oder mehre- durch Typen 
rer Variablen gestattet. Das Pascal-:System kann dadürch 
automatisch kontrollieren, ob ein bestimmter Wert zu ei- 
ner Variable paßt. " 
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Bei Wertzuweisungen, Vergleichsausdrücken und in 
anderen Zusammenhängen erkennt eventuell schon der 
Compiler eine Inkompatibilität. Von vorneherein wird 
verhindert, daß einer Variablen ein nicht mit ihr verträg- 
licher Ausdruck zugewiesen wird. Der Compiler bemän- 
gelt zum Beispiel (in Turbo-Pascal mit der Fehlermeldung 
Type mismatch), wenn Sie auf eine STRING-Variable einen 
booleschen Wert oder auf eine Integer-Größe einen Real- 
Wert setzen. Durch die Weigerung, ein lauffähiges Pro- 
gramm abzuliefern, schützt der Compiler Sie vor mögli- 
cherweise verheerenden Folgen. Zum Beispiel würden 
bei der Zuweisung eines Real-Wertes an eine Integer-Va- 
riablen die überzähligen Stellen der Real-Zahl verloren 
gehen. Übrigens gibt es auch Compiler, vor allem bei 
Sprachen mit weniger strikter Syntax als Pascal, die bei 
leichten Fehlern zwar warnen, aber trotzdem zu Ende 
kompilieren. 

Eine festgestellte Typ-Inkompatibilität weist immer auf 
einen logischen Fehler im Programmcode hin. Wer ver- 
sucht, den sprichwörtlichen Vergleich von Äpfeln und 
Birnen durchzuführen, wird vom Compiler daran gehin- 
dert. Dazu ist die Software imstande, weil sie die formale 
Information ausnutzt, daß die eine Variable zum Beispiel 
mit TypApfel, die andere mit TypBirne deklariert ist. Letzt- 
lich werden Sie auf den Widerspruch zu Ihrer eigenen 
vorherigen Erklärung (Deklaration) aufmerksam ge- 
macht, laut der es sich um unterschiedliche Dinge han- 
delt. Die Anwendung von Typen zeigt sich damit als ein 
Weg, um eine semantische Eigenschaft des Programms - 
einen Aspekt der Programmbedeutung - mit syntakti- 
schen, das heißt formallogischen Mitteln widerzuspie- 
geln. Sie liegt in der Linie dessen, was Programmentwick- 
lung bedeutet: Realität in formalen Systemen abbilden. 


Die Typdeklarationen im Gesamtaufbau 
eines Pascal-Programms 


Die Definitionen (Deklarationen) eigener Typen stehen 
im ‚Deklarationsteil eines Programms oder einer Proze- 
dur laut den Vorschrift von Standard-Pascal nach den 
Konstanten und vor den Variablen (die wiederum vor den 
untergeordneten Prozeduren kommen). Diese Reihenfol- 
ge ist logisch, weil die Typen für die Deklaration von Va- 
riablen zur Verfügung stehen sollen, andererseits in ihre 
Definition Konstanten eingehen können. In Turbo- und 
Quick-Pascal dürfen die verschiedenen Abschnitte des 


Deklarationsteils auch mehrfach und in gemischter Folge 
vorkommen. Natürlich darf trotzdem ein Pascal-Name 
nicht zweimal deklariert sein. Und jeder Typ muß existie- 
ren, bevor er zur Vereinbarung von Variablen dienen 
kann. Schematisch gliedert sich insgesamt ein Programm 
(analog eine Prozedur) in Standard-Pascal entsprechend 
dem folgenden Schema: 


a e—, nn Me hd 


Progrommkopf 


Labelnome, Laoabelnome, ...; 
CONST 

Konstonten_Bezeichner = Wert: ... 
TYPE 

Typ_Bezeichner = <Typ-Definition>; ... 
VAR | 

Vorioblen-Bezeichner : 

Typ_Bezeichner; ... 


Deklorationsteil 


(hier können beliebig viele Prozeduren 
stehen, die jeweils eigene Konstanten, | 
Typen, Variablen, und Unterproze- 

duren hoben dürfen) 


in Cm En un (| | |, 


<Houptprogromm> Anweisungsteil 
END 





| 
| 
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Abbildung 12-2:-Schena eines Pascal-Progranıms 


Nach Standardsyntax gibt es keine weiteren Abschnitte 
eines Programms beziehungsweise einer Prozedur. Die 
bislang nicht erwähnten LABEL-Deklarationen sind Ver- 
einbarungen für Sprung-Marken. Aus den im Abschnitt 
über GOTO (Kapitel 9) dargelegten Gründen sollten sie 
sehr zurückhaltend gebraucht werden und werden in 
diesem Buch nicht behandelt. In Turbo-Pascal ab Version 
4.0 und in Quick-Pascal steht, wie Sie gelesen haben, 
meist hinter dem Programmkopf eine USES-Deklaration 
für eine oder mehrere Units, vorcompilierte Programm- 
einheiten (oder Moduln). 
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Zur allgemeinen Syntax 
der Typdeklaration. 


Unter dem Titel TYPE können beliebig viele Typdeklara- 
tionen (Typdefinitionen) notiert werden. Dabei hat eine 
Typdeklaration die allgemeine Gestalt: 


Typname = Typbeschreibung; 


Ebenso wie in Konstantendefinitionen ist hier das ein- 
fache Gleichheitszeichen verlangt (nicht := und auch 
nicht :). Typname darf irgendein nach den üblichen Re-' 
geln gebildeter Pascal-Name sein. Im einfachsten Fall be- 
steht die Typbeschreibung aus dem Namen eines bereits 


definierten Typs: 


ApfelgewichtsTyp = GewichtsTyp; 


In dieser Zeile ist ApfelgewichtsTyp der neu vereinbarte 
Name. Was rechts steht, der GewichtsTyp, muß vorher be- 
kannt sein. 

Es empfiehlt sich, grundsätzlich jeden Typnamen mit 
„Iyp” beginnen oder enden zu lassen, obgleich ein belie- 
biger Pascal-Name erlaubt ist. Sonst verliert sich ganz 
schnell der Überblick, was als Typname und was als Na- 
me einer Variablen gedacht war. Im Beispiel muß also Ge- 
wichtsTyp vorher deklariert werden (etwa durch: 
GewichtsTyp = Real;). Damit wird GewichtsTyp, indirekt 
auch ApfelgewichtsTyp, auf den vordefinierten Typ Real 
zurückgeführt. Es erscheint nur auf den ersten Blick wie 
eine lästige Definitionsübung, für syntaktisch denselben 
Typ (hier Real) weitere Bezeichnungen einzuführen. Will 
man später irgendwann die Variablengruppen unabhän- 
gig voneinander verändern, ist es durchaus sinnvoll, 
wenn die Typen von vorneherein getrennt gehalten wer- 
den. Selbst wo es syntaktisch zunächst unerheblich ist, 
kann die Zuordnung der Variablen zu unterschiedlichen 
Typen bei der Programmentwicklung helfen. Aufgrund 
obiger Typdefinitionen können im VAR-Abschnitt zum 
Beispiel folgende Größen vereinbart werden: 


PausenapfelGestern, PausenapfelHeute, 
EinApfel, Durchschnittsgewicht : ApfelgewichtsTyp; 
MappenGewichtGestern, MappenGewichtHeute: GewichtsTyp; 


Nicht ganz so einfach sind die Typbeschreibungen, 
wenn tatsächlich neue Typen geschaffen werden. Zu- 
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nächst sollen die selbstdefinierten Aufzählungstypen be- 
trachtet werden. 


Selbstdefinierte Aufzählungstypen 


Möchten Sie einen eigenen Aufzählungstyp kreieren, 
müssen Sie eine charakteristische und geordnete Liste 
von Werten selbst angeben. Die Typbeschreibung besteht 
aus einer Aufzählung von Pascal-Namen, die in Klam- 
mern gesetzt werden. In einem Programm zur Verwal- 
tung einer Apfelzucht könnten zum Beispiel Variable und 
damit ein Typ für Apfelsorten von Nutzen sein. Die Defi- 
nition des Typs sähe unter der Überschrift TYPE vielleicht 
so aus: 


TypApfelsorte = (Jonathan, Klarapfel, Boskop, CoxOrange, 
SommerCox, GoldenDelicious,. GrannySmith, 
Ontario, Renette); 


Entsprechende Variablen könnten unter der Überschrift 
VAR deklariert werden, etwa: 


Lieblingssorte, Apfelsorte, VerkaufSorte: TypApfelsorte; 
Wertzuweisungen würden so aussehen: 


Lieblingssorte := Jonathan; 
VerkaufSorte := CoxOrange; 


Für anschauliche kleine Beispiele eignetsich auch gut der Beispiel 
TypWochentag: TypWochentag 


TYPE 
TypWochentag = (Mon, Die, Mit, Don, Fre, Sam, Son); 


Vorsicht, Donnerstag kann nicht als „Do” abgekürzt wer- 
den, weil DO als Bestandteil der WHILE- und.der FOR- 
Anweisung ein pascaleigenes Schlüsselwort darstellt! 
Computerintern wird übrigens die Liste jedes Aufzäh- 
lungstyps mit 0 beginnend durchnumeriert, das heißt, es 
besteht die Zuordnung: 


Mon Die Mit Don Fre Sam son 
0 1 2 3 4 5 6 


Wenn der Typ vereinbart ist, können wieder Variablen 
dieses Typs deklariert werden, also zum Beispiel: 


VAR 
tag, heute, morgen, gestern : TypWochentag; 
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Darstellung einer 
logischen Struktur 


Durchlauf mit der 
FOR-Anweisung 


Anwendung von 
selbstdefinierten Aufzählungstypen 


Kann TypWochentag vielleicht vorteilhaft in dem Pro- 
gramm KleinerKalender vom Schluß des letzten Kapitels 
verwendet werden? Leider in der Praxis nicht, denn alle 
Anwendungen von selbstdefinierten Aufzählungstypen 
leiden unter einem Handicap: Eine unmittelbare Ein- 
oder Ausgabe der Werte von Variablen eines selbstdefi- 
nierten Aufzählungstyps mit Write oder Read ist nicht 
möglich. Dies ist unangenehm, aber nicht unbegründet, 
da Ein- und Ausgabe im Grunde immer Textdateien an- 
sprechen (Tastatur und Bildschirm sind Spezialfälle). Ei- 
gentlich können nur Zeichen empfangen und abgegeben 
werden. Schon bei Zahlen muß das Pascal-System dafür 
sorgen, daß bei Ein- und Ausgabe die Daten zwischen der 
Char- beziehungsweise STRING-Darstellung und dem 
internen Zahlenformat umgewandelt werden. Bei der’ 
Eingabe müssen die Zahlen syntaktisch geprüft, bei der 
Ausgabe formatiert werden. Der Aufwand, entsprechen- 
de Mechanismen für alle denkbaren selbstdefinierten Ty- 
pen im Pascal-System mitzuliefern, wurde vermieden. 
Praktisch dienen die eigenen Aufzählungstypen in er- 
ster Linie dafür, in größeren Programmen eine innere 
Struktur übersichtlich darzustellen. Wenn zum Beispiel 
ein Programm je nach Wochentag Unterschiedliches tun 
soll, kann die wie oben vereinbarte Variable heute samt 
den Werten ihres Typs in einer CASE-Anweisung ver- 
wendet :werden (mit entsprechenden Prozeduren Werk- 
tagsfahrplan, Samstagsfahrplan, Sonntagsfahrplan): 


CASE heute OF 
Mon..Fre : Werktagsfahrplan; 


Sa : Samstagsfahrplan; 
So : Sonntagsfahrplan; 
END; 


Wichtig ist auch, daß die FOR-Anweisung erlaubt, die 
Werte eines Aufzählungsstyps oder eines Teilbereichs der 
Reihe nach abzuprüfen: 


FOR heute := Mon TO Fre DO 
DruckeTerminzettel; 


Nehmen Sie an, das Beispielprogramm muß für ver- 
schiedene Zwecke die ganze Liste der Apfelsorten durch- 
gehen. Der oben erklärte TypApfelsorte entfaltet seine Vor- 
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züge besonders, wenn er in einer FOR-Anweisung ver- 
wendet wird. Das Programm könnte (mit obigen Dekla- 
rationen, dazu einer Integer-Variable Anzahl und den 
Real-Variablen MittlererPreis und Einzelpreis) den Durch- 
schnittspreis je Kilogramm Äpfel mit folgenden Anwei- 
sungen ermitteln (dabei sei angenommen, daß der Preis 
für die einzelnen Sorten passend eingetippt wird): 


MittlererPreis := 0; 

Anzahl = 03 

FOR Apfelsorte := Jonathan TO Renette DO 
BEGIN 


Write (’ nächster Wert: ’); 
ReadLn (Einzelpreis); 
MittlererPreis := MittlererPreis + Einzelpreis; 


Anzahl := Anzahl + 1; 
END; 
MittlererPreis := MittlererPreis / Anzahl; 
Writeln; 


WriteLn (’° Der durchschnittliche Preis ist’, 
MittlererPreis : 7 : 2); 


Diese Anweisungen können unverändert weiter be- 
nutzt werden, wenn zusätzliche Apfelsorten in die Mitte 
der den Typ beschreibenden Werteliste hinzukommen, 
weil nur Anfangs- und Endwert namentlich angeführt 
sind. Für diesen Vorteil kann es sich in einem größeren 
Programm, das die Liste der Apfelsorten häufig abarbei- 
tet, durchaus lohnen, einen höheren Aufwand für die 
Programmierung der Datenein- und ausgabe zu treiben. 

Wenn in dem Beispiel die Namen der Sorten angezeigt Eine Ausgabeprozedur 
werden sollen, bleibt nicht viel anderes übrig, als einege- für einen 
sonderte Prozedur AusgabeApfelsorte zu schreiben. Dort selbstdefinierten 
müssen in einer CASE-Anweisung alle Werte des Typs Aufzählungstyp 
noch einmal aufgelistet und individuellin Ausgaben um- 
gesetzt werden: 


PROCEDURE Ausgabeäpfelsorte; 
BEGIN 
CASE Apfelsorte OF 
Jonathan : Write (’Jonathan’); 
GoldenDelicious: Write (’Golden Delicious’); 


END; 
END; 


Vergleichsoperationen 


Vorgänger und 
Nachfolger 


Im nächsten Kapitel wird beschrieben, wie eine solche 
Prozedur so eingerichtet werden kann, daß sie für sämtli- 
che Variablen des TypApfelsorte anwendbar ist. 


Ord und die Funktionen bei 
Aufzählungstypen 
Die Funktion ord läßt sich bei selbstdefinierten Aufzäh- 


lungstypen genauso verwenden wie bei Char-Werten. 
Die Ordnungsnummer eines Wertes ergibt sich aus dem 


"Platz des Wertes in der den Typ definierenden Liste. Bei 


TypWochentag oben hat: 
ord (Mon) {den Wert 0,} 
ord (Die) {den Wert 1 und so weiter} 


Die Anordnung der Werte kann bei allen Aufzählungs- 
typen wie bei Zahlen mit >, >=,;=, <=, < abgefragt wer- 
den. Zum Beispiel gilt für die Werte von TypWochtentag: 
Mon < Die, Die < Mit und so weiter. 

Bei allen Aufzählungstypen gibt es auch die Möglich- 
keit, den Nachfolger, successor, und den Vorgänger, pre- 
decessor, eines bestimmten Wertes (entsprechend der 
durch die Typdefinition festgelegten Reihenfolge) zu er- 
mitteln: succ (Die) zum Beispiel hat den Wert Mit, pred 
(Mit) gibt wieder Die. 

Für eine Integer-Größe Zahl kann succ (Zahl) und pred 
(Zahl) ebenfalls gebildet werden. succ (Zahl) bedeutet das- 
selbe wie Zahl + 1, pred (Zahl) ist Zahl - 1. Unter Umstän- 
den werden die Nachfolger- und Vorgängerfunktion auf 


‚dem Computer sogar schneller ausgewertet als die Addi- 


tion und Subtraktion. Abschließend noch ein Beispiel von 
TypWochentag: 


IF heute < Son 


THEN morgen := succ (heute) 
ELSE morgen := Mon; 
 Teilbereichstypen 


Der Grundgedanke im Zusammenspiel von Typen, Vari- 
ablen und Werten lautet, wie oben geschildert: 

Der Typ gibt syntaktisch die möglichen, semantisch die 
sinnvollen Werte einer Variablen an. Pascal erlaubt, die- 
ses Prinzip noch etwas strikter anzuwenden, indem es 
anbietet, zu Aufzählungstypen Teilbereichs- oder Aus- 


schnittstypen zu bilden. Wenn zum Beispiel eine Variable 
des Wochentagtyps nur für Werktage verwendet werden 
soll, kann ein entsprechender Teilbereich vereinbart wer- 
den. Das sieht dann so aus: 


vv. 


TYPE 
TypWerktag = Mon .. Sam; 
VAR 
Werktag : TypWerktag; 


Auch für Integer und Char können entsprechende Aus- 
schnittstypen und zugehörige Variablen definiert werden: 


TYPE 

TypKleinbuchstabe = 'a’..’z'; 
TypJahrNachChristi = 1 .. 2000; 
TypJahrVorChristi = -30000 .. -1; 
VAR \ 

Zeichen : TypKleinbuchstabe; 


JahrNChr : TypJahrNachChristi; 
JahrVChr : TypJahrVorChristi; 


In Turbo-Pascal gibt es sogar einen vordefinierten Teil- 
bereichstyp von Integer, den Typ Byte für ganze Zahlen 
zwischen O0 und 255. Um diesen Typ selbst zu deklarieren, 
müßte man schreiben: 


TYPE Byte = 0 .. 255; 


Der vordefinierte Typ Byte entspricht tatsächlich einem 
Byte im Speicher. Ein selbstdefinierter Typ übernimmt aber 
in Turbo-Pascal die Speicherform seines Grundtyps. Eine 
Variable des eigenen Typs Byte würde also den gleichen 
Platz wie eine Integer-Variable, das heißt zwei Byte, bele- 
gen. 

Es ist oft nützlich, folgenden Teilbereichstyp des Typs 
Integer zu deklarieren: 


TYPE Cardinal = OD. .Maxint; 


Kardinalzahlen heißen die natürlichen Zahlen, die eine 
Anzahl feststellen (0, 1, 2, 3...). Demgemäß umfaßt Cardi- 
nal die ganzen Zahlen zwischen 0 und der maximalen In- 
teger-Zahl. Dieser Typ kann sinnvoll bei Zählvariablen 
verwendet werden. Ab Version 4.0 gibt es in Turbo-Pascal 
zum Zählen den vordefinierten Typ Word. Im Gegensatz 
zu einem Teilbereichstyp von Integer kann er zwei Bytes 
im positiven Bereich voll ausnutzen und damit Zählzah- 
len von O bis 65535 zur Verfügung stellen. 


Byte 


Cardınal 


Word 
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Beschränkte Ein Teilbereichstyp wird, wie an den Beispielen zu-se- 
Verwendbarkeit von hen; folgendermaßen definiert: Die Typbeschreibung be- 
Teilbereichstypen ginnt mit dem ersten Wert des gewünschten Ausschnitts 
vom Grundtyp, gefolgt von zwei Pünktchen und dem 
letzten zugehörigen Wert. Aus dieser einzig möglichen 
Definitionsweise ergibt sich die wesentliche Einschrän- 
kung im Gebrauch von Teilbereichstypen: Nur vollstän- 
dige Abschnitte des Grundtyps in seiner ursprünglichen 
Ordnung können zu einem eigenen Typ gemacht werden. 
Es kann aber durchaus :vorkommen, daß Variable benö- 
tigt werden, deren Werte in unzusammenhängenden Ab- 
schnitten des Grundtyps liegen. Zum Beispiel wurde 
oben TypKleinbuchstabe definiert. In der aufgeführten 
Form eignet er sich nur für Programme, die auf amerika- 
nische Verhältnisse zugeschnitten sind. Sollen deutsche 
Texte bearbeitet werden, müßten noch ’ä’, ’ö’, ’ü‘, 'ß’ hin- 
zugenommen werden. Aber das geht mit einem Teilbe- 
reichstyp (unter Zugrundelegung des PC-Zeichensatzes) 
nicht: das Herausgreifen zum Beispiel aller Kleinbuchsta- 
ben aus dem Alphabet überstrapaziert das Pascal-Typ- 
konzept. | 
Für die Feinunterscheidung von Werten innerhalb ei- 
nes Grundtyps sollte das Programm mit eigenen Mitteln 
sorgen. Es muß auch sonst auf unterschiedliche Weisen, 
zum Beispiel mit Eingabenkontrollen, verhindern, daß 
unzulässige Werte auf eine Variable kommen. Das oben 
formulierte Prinzip, daß die Typen eine syntaktische Prü- 
fung der Zuweisungen an Variable erlauben, ist eher als 
Notbremse bei groben Fehlern zu verstehen. Zur regulä- 
ren Fehlerverhütung taugt die Typkontrolle des Pascal- 
Systems vor allem in jenen Fällen wenig, in denen sie erst 
während des Programmlaufs greift und dabei einen — 
mindestens bei größeren Programmen nach Möglichkeit 
zu vermeidenden - Absturz herbeiführt. Die wichtigsten 
Anwendungen von Teilbereichstypen sind Typen wie By- 
te oder Cardinal, die auch technisch unterschiedlich be- 
handelt werden können. Ansonsten liegt ihr Hauptzweck . 
weniger in der Verfeinerung der Syntaxkontrolle als da- 
rin, daß sie in die Definition bestimmter zusammenge- 
setzter Datentypen eingehen, wie Sie unten sehen .wer- 
den. 


Explizite und implizite Typdefinitionen _ 
Bei der bisher ausschließlich verwendeten expliziten Typ- 
definition wird zunächst der Typname vereinbart und 
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dieser dann für die Deklaration von Variablen herangezo- 
gen. Manchmal genügt aber die folgende implizite Form, 
die an einem Beispiel eines Char-Ausschnitts gezeigt 
wird. Die Typbeschreibung findet hier direkt in der Vari- 
ablenvereinbarung statt, ein Typname wg gar nicht erst 
eingeführt: 


VAR 
Indexi, Index2, Index3: a’..'z’; 


Dies entspricht mehr oder wenn den folgenden Ver- 
einbarungen: . 


TYPE 

IndexTyp = ’a’..’z’; 

VAR 

Indexl, Index3, Index3: IndexTyp; 


Die beiden Formen sind nicht ohne weiteres austausch- 
bar. Die Typbeschreibung kann nicht immer für den Typ- 
namen stehen. Wird zum Beispiel eine Variable Index4 an 
anderer Stelle ebenfalls mit: Index4 : 'a’..’z’; deklariert, so 
erkennt der Compiler nicht, daß es sich um den gleichen 
Typ wie bei Index1, Index2, Index3 handeln soll (gleichgül- 
tig, ob die drei Variablen implizit oder explizit vereinbart 
wurden). 


Wenn getrennt deklarierte Variablen als typidentisch | 


| gelten sollen, müssen sie explizit demselben Typna- 
“ men zugeordnet sein. 


— 1. .a "0 





In vielen Situationen ist daher die explizite Definition 
sinnvoller oder sogar die allein mögliche. 

Wie Sie schon im letzten Kapitel an den Eingabekon- 
trollen für Char-Variable sahen, wird eine Feinunterschei- 
dung von zulässigen und unzulässigen Werten eines 
Typs nicht mit Teilbereichstypen, sondern häufig durch 
die Zusammenstellung eines entsprechenden SETs ge- 
troffen. Worum handelt es sich bei einem solchen „Set“? 


SET-Typen 


Ein „Warenkorb“ oder eine Zusammenstellung von 
. elementaren Objekten, ein SET, wird in Pascal als Wert ei- 
nes strukturierten Datentyps aufgefaßt. Dazu .gibt..es 
dann auch die entsprechenden Variablen. Es sollen etwa 


Merkzettel 


Selbstdefinierte Typen | 


SET-Variable 


Deklaration 


in einem Menü die zulässigen Eingaben 'v’, 'h’,"n’, 'g’, 'x’ 
sein ("V’orspeisen, ’H’auptgerichte, ’N’achspeisen, 
"Getränke und (ni)’X’ oder englisch eXit, Ausgang). Mit 
einer Char-Variablen Wahl kann gefragt werden, ob: . 


Wahl IN (’v’, pn’, In’, gt, x’). 


Mit einer Variablen ZulaessigeZeichen können Sie dann 
auch schreiben: 


Wahl IN ZulaessigeZeichen 


- Das erleichtert zum Beispiel die Eingabekontrolle ‚au- 
Berordentlich, weil nun eine einzige Prozedur für alle Me- 
nüs reicht. Vor dem Aufruf der Prozedur muß lediglich in 
ZulaessigeZeichen der richtige Inhalt kommen: 


ZulaessigeZeichen 
ı= (’v’, ‘h?, 'n’, ’'g’, xt]; 
In der Prozedur steht nur noch: 


WHILE NOT (Wahl IN ZulaessigeZeichen) DO 
BEGIN 
read (Wahl); 


END; 


» 


Möchten Sie ein SET deklarieren, schreiben Sie einfach, 


‚aus welchen Elementen das SET gebildet werden darf: 


VAR 
ZulaessigeZeichen: SET OF Char; 


Dies ist allerdings eine implizite Typangabe. In der zu 
bevorzugenden expliziten Form lautet die entsprechende 
Vereinbarung: j 


TYPE 
TypZeichenGruppe = SET OF Char; 
VAR 
ZulaessigeZeichen : TypZeichenGruppe; 


Der strukturierte Typ TypZeichenGruppe wird auch ein 
SET-Typ genannt (da er Zeichen in Form von SETS Orga- 
nisiert). In einem SET vom TypZeichenGruppe können Sie 


auch, was mit den Teilbereichstypen nicht gelirigt,'sämtli- 


che -Kleinbuchstaben eines (nicht englischen) Alphabets 
erfassen: Ä 


Kleinbuchstaben : TypZeichenGrupp®e; 


Am Programmanfang wird der Variablen der entspre- 
chende Inhalt zugewiesen: 


Kleinbuchstaben := [’a’..'’z’, 'ä', ’ö’, 'ü’, 


Sie sehen, daß auch bei der Auflistung der Werte in ei- 
nem SET ein zusammenhängender Abschnitt eines Auf- 
zählungstyps in abgekürzter Schreibweise aufgenommen 
werden darf. 


SETs und ihre Elemente 


Ein SET-Typ wird als strukturiert bezeichnet, weil er 
Werte eines einfacheren Typsin bestimmter Weise zusam- 
menfaßt: Ein SET ist dadurch charakterisiert, daß die Rei- 
henfolge der Nennung (und sogar die Mehrfachnen- 
nung) seiner Elemente unerheblich ist. Es zählt nur, 
welche Werte aus der zur Auswahl stehenden Gesamtheit 
- dem Elementtyp - dazu gehören und welche nicht. 
Der Elementtyp, auch Grundtyp genannt, aus dessen 
Werten das SET gebildet wird, muß in Pascal ein Aufzäh- 
lungstyp sein, dessen Werteliste einen gewissen (von der 


Pascal-Implementation abhängigen) Umfang nicht über- 


schreiten darf. Diese Beschränkung rührt daher, daß in- 
tern für jedes mögliche Element eines SETs, das heißt für 
jeden Wert des Elementtyps, ein Bit im Speicher reserviert 
werden muß. Auf dieser Speicherstelle wird vermerkt, ob 
das betreffende Element im aktuellen SET enthalten ist 
oder nicht. In Turbo-Pascal wie in Quick-Pascal dürfen 
daher praktisch nur SETs aus Chars, aus dem Teilbereich 
Byte (0..255) von Integer und aus selbstdefinierten Auf- 
zählungs- oder Teilbereichstypen gebildet werden. Ein 
Beispiel eines SET-Typs, dessen Elementtyp nicht Char 
ist: Mit TypApfelsorte lassen sich hervorragend diverse 
Apfelgruppen beschreiben. Es sei definiert: 


TYPE 
TypApfelgruppe = SET OF TypäApfelsorte; 


VAR 
Sommeraepfel, Herbstaepfel, Winteraepfel, 


'B’']; 


Mögliche 
Elementtypen 


Eigenzuechtungen, Neuerwerbungen, Ausgeschieden 


U.) 
: TypApfelgruppe; 


Sommeraepfel := [Klarapfel, Gravensteiner, :SommerCox] ; 


Herbstaepfel := [Boskop, Ontario, CoxOrange]; 
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Merkzettel 










Zu beachten ist, daß weder STRING- noch Real-Werte 
in einem SET vorkommen können, weil sie niemals ei- 


nem Aufzählungstyp angehören. Ä 
Be le u ne 





Etwas SET-Theorie 


Was heißt eigentlich das englische Wort set? Am besten 
fahren Sie, wenn Sie sich vom Anklang an „Geschirrset” 
oder „Kochlöffelset” leiten lassen. Die korrekte Überset- 
zung des Pascalbegriffs SET ist allerdings der unglücklich 
gewählte Begriff der mathematischen Menge, der anders 
als in der Alltagssprache nichts Quantitatives meint. Nur 
werden in der Mathematik die Elemente einer Menge 
durch geschweifte Klammern [ } zusammengefaßt, die in 
Pascal schon für Kommentare vergeben sind. 

Anders als in der mathematischen Mengenlehre (ge- 
naugenommen auch dort nur in der sogenannten „nai- 
ven“ Mengenlehre) dürfen Sie in Pascal SETs nicht frei 
bilden: Wie Sie wissen, müssen die Elemente alle vom 
(selben) Elementtyp sein. Ansonsten kann vieles aus der 


mathematischen Mengenlehre in der „Set-Lehre” von 


Die leere 
Menge 


Operationen 
mit SETs 


Pascal nachvollzogen werden. 

| ] ist die „leere Menge“, das leere SET, der Warenkorb 
ohne Inhalt. Jede Abfrage, ob irgendein Element da drin 
ist, führt zum Ergebnis „false“. In ein Programm werden 
Sie natürlich nicht einfach hinschreiben 


if Zeichen in [ ] 


Es kann aber durchaus passieren, daß sich zum Beispiel 
die Variable ZulaessigeZeichen in der Bedingung 


if Zeichen in ZulaessigeZeichen 


im Zuge des Programmablaufs „entleert”. | 

Wie in der Mathematik dürfen zwei Mengen vereinigt 
werden, in Pascal mit + geschrieben, und es kann ihr 
Durchschnitt gebildet werden, als Symbol dient das Mul- 
tiplikationszeichen *. Die Vereinigung A + B zweier SETS 
A, B besteht, wie der deutsche Begriff richtig vermuten 
läßt, aus all den Elementen, die in A oder B enthalten 
sind. Zum Durchschnitt A * B gehören dagegen nur die 


Elemente, die sowohl in A wie auch in B liegen. Auch die 


Differenzmenge gibt es in Pascal, die wie in der Mathe- 
matik mit dem gewöhnlichen Minuszeichen ausgedrückt 
wird: Zu A - B gehören die Elemente, die in A, aber nicht 
in B liegen. 


Abbildung 12-3: Einfache Beispielgestaltung für Spielkarten 


Zwei SEIS (des gleichen Elementtyps) können mit = 
auf Gleichheit befragt werden. Außerdem können Sie 
(mit Größer- bzw. Kleinerzeichen) feststellen, ob das eine 
im anderen (als ein „Teil“, eine Teilmenge) enthalten ist. 
Im folgenden Beispielprogramm stellen Sie mit Hilfe der 
ziemlich theoretisch wirkenden Mengenoperationen auf 
sehr anschauliche Weise ein KartenSet zusammen. 


Beispiel: Karten ziehen 


Mit dem folgenden Programm können Sie ein Blatt Kar- 
ten aus einem Spiel (der Kürze halber nur Herz) „ziehen“ 
und, wenn Sie wollen, es sich leicht auch ausdrucken. Der 
vollständige Kartensatz erscheint als Typkarte. Die noch 
im Stapel auf dem Tisch liegenden Karten sind ebenso wie 
die Karten auf der Hand als Variable des Typs SET OF 
TypKarte modelliert. Die verzwickteste Stelle des Pro- 
gramms ist wohl das zufällige Ziehen einer Karte aus 
dem Stapel. Es wird simuliert, indem eine zufällige Zahl 
X bestimmt wird, die zwischen 1 und der Anzahl der Kar- 
ten auf dem Stapel liegt. Anschließend müssen Sie die X- 
te Karte im Reststapel (der aber als geordnet angenom- 
men werden kann) suchen. Die Prozeduren, die die 
Karten zeichnen sollen, sind.nur- als einfache’ Dummy- 
Prozeduren aufgeführt. Wenn Sie mögen, gestalten: Sie 
sich einen möglichst schönen Kartensatz mit den zur Ver- 





- wu ai—-- —— 


Vergleiche 
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fügung stehenden graphischen Möglichkeiten. Relativ 
leicht geht es noch bei den Zahlenkarten (Abb. 12-3 auf 


Seite 199): 


PROGRAM KartenSpiel; 


USES {Entfällt in Turbo. 3.x}) 
crt; 

CONST 
Verzoegerungszeit = 500; 
Anfangszeile = 12; 
Anfangsspalte = 41; 

TYPE 
TypKarte = (As, Sieben, Acht, Neun, Zehn, 

Bube, Dame, Koenig); 

TypKartenSet = SET OF Typkarte; 
Cardinal = 0 .. MaxInt; 

VAR 
AnzahlAufStapel : Cardinal; 
zahl, Gesamtzahl : Cardinal; 
Karte : TypkKarte; 
Stapel, Hand : TypKartenSet; 
Zeichen : Char; 


PROCEDURE AsMalen; 


BEGIN 
WriteLln; 
{Rahmen aus ASCII-Code: 219} 
WriteLn (’IIIIIIII  ); 
WriteLn ('’IMl’,#3, ’AsiW’); 
WriteLn (’EHIMV ); = 
END; 
PROCEDURE SiebenMalen; 
BEGIN 
WriteLln ('IIIEIEIB  ); 
WriteLn (’IB’,#3, 701’); 
WriteLn (III); 
END; 
PROCEDURE AchtMalen; 
BEGIN 
WriteLn (’WINEMN ); 
WriteLn (’IIl,#3, 8’); 
"WriteLn (III); _ 
END; 


PROCEDURE 


NeunMalen; 


BEGIN 
WritelLn (’IIMEI); 
WriteLn (BIP ,#3, 9’); 
WriteLn (INN); 

END; 

PROCEDURE ZehnMalen; 

BEGIN 
WriteLn ('INIEIEN’); 
WriteLln (II, #3, ’10008’); 
WriteLn ( 'EEEIIEEIE’); 

END; 

PROCEDURE BubeMalen; 

BEGIN 
WriteLln ('IHINNI’ ); 
WriteLn (BI ,#3, ’Bulll’); 
WriteLn (’ITIINITI’ ); 

END; 

PROCEDURE DameMalen; 

BEGIN 
WriteLn (IHREM); 
WriteLn (’MI’,#3, Dal’); 
WriteLn (’IEIIIIIE: ); 

END; 

PROCEDURE KoenigMalen; 

BEGIN 
WriteLn (’BIIIIEIM ’); 
WriteLn (’IIW’,#3, ’xKölll’); 
WriteLn (III); 

END; 

PROCEDURE Anzeigen; 


BEGIN 

WriteLn; 

CASE Karte OF 
AB : AsMalen; 
Sieben : SiebenMalen; 
Acht : AchtMalen; 
Neun : NeunMalen; 
Zehn : ZehnMalen; 
Bube : BubeMalen; 
Dame : DameMalen; 


Koenig : KoenigMalen; 
END; 
END; 
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PROCEDURE Ziehen; 


VAR 
i, X : Cardinal; 
BEGIN 
IF AnzahlAufStapel > O 
THEN % 
BEGIN es 
X := Random {AnzahlAufStapel) + 1; 
{Ergibt zufällige Zahl zwischen 1 und 
AnzahlAufStapel: Jetzt suche die X-te Karte 
der auf dem Stapel verbliebenen Karten:} 
Karte := As; {Anfangswert)} 
WHILE NOT (Karte IN Stapel) DO 
Karte := succ (Karte); 
(Karten, die nicht mehr auf dem Tisch liegen, werden 
übersprungen. Wenn X größer als 1 ist, weitergehen...) 
- FOR i:= 2 TO X DO 
BEGIN . 
Karte := succ (Karte); 
(Zur nächsten Karte gehen und wieder:} 
WHILE NOT (Karte IN Stapel) DO 
Karte := succ (Karte); 
{Karten überspringen, die nicht mehr im 
. Stapel sind )} i 
END; 
{Mittels Subtraktion von SETS hs 
die gezogene Karte aus dem Stapel entfernen. 3 
Stapel := Stapel - [Karte]; : 
{Und auch die Anzahl um 1 verringern } 
'AnzahlAufStapel := AnzahlAufStapel - 1; 
END. 
ELSE 
Write (’Keine Karte mehr da.’); 
.END; 


PROCEDURE BlattZeigen; 


BEGIN 
Clrecr; 
FOR Karte := As TO Koenig DO | 
IF Karte IN Hand THEN Anzeigen; 
END; 


PROCEDURE ProgrammErklaerung; 
VAR 


ji » Cardinal; 


‘ 


PROCEDURE Copyright; 
BEGIN 
WriteLn; 
WriteLln (' Verfasser: .... ’);_ 
WriteLln (' (C) 19. °); 
Writeln; 
END; 


BEGIN 
Write ("Das Programm simuliert das Ziehen "y 
WriteLn (’eines Blattes aus den ’,#3,’-Karten.’); 
Copyricht; 
FOR i := 1 TO 80 DO 

Write (’_’); 
WriteLn; 
WriteLn (’Wieviel Karten sollen gezogen werden? ’)}; 
WriteLn (’Geben Sie bei der einfachen Beispielgestaltung’); 
Write ("eine Zahl zwischen 1 und 8 ein: ’); 
ReadLn (Gesamtzahl); 


Writeln; 
WriteLn (’Zum Fortsetzen beliebige Taste drücken’); 
Zeichen := Reaäkey; {Oder: Read (RKbd, Zeichen);)} 
ClrScr; 

END; 


BEGIN (* von Hauptprogramm *) 


Randomize; 

ClrScr; 

ProgrammErklaerung; 

AnzahlAufStapel := ord (Koenig) + 1; 

Stapel := [As .. Koenig]; 

Hand = []; 

FOR Zahl := 1 TO Gesamtzahl DO 
BEGIN 


GoToXY (Anfangsspalte, Anfangszeile); 
Write (’ziehen! ’); 
Zeichen := Readkey; {Oder: Read (Kbd, Zeichen);)} 
ClrScr; 
Ziehen; 
Hand := Hand + [Karte); 
GoToXY (1, Anfangszeile); 
delay (Verzoegerungszeit); 
Anzeigen; 
Zeichen := Readkey; (Oder: Read: (Kbd,' Zeichen);)} 
ClrScr; | 
END; 
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Write (’Das Blatt zeigen ‘); 


Zeichen := Readkey; .{Oder: Read (RKbd, Zeichen);}. 
BlattZeigen; 
Zeichen := Readkey; .tOder: Read (Kbd), Zeichen);} 


END. (* von Hauptprogramm *) 


Gezogene Karten (zum Beispiel von mehreren Spielern 
oder Spielerinnen) werden in ihrem Rang verglichen mit 
Abfragen wie: 


Kartel. < KRarte2 


Sie können den Wert der Karten verändern, indem Sie 
zum Beispiel As in TypKarte hinter den Koenig stellen oder 
die Dame an den Platz mit dem höchsten Rang. Im Prinzip 
lassen sich auf diese Weise Kartenspiele programmieren. 
Der Aufwand wird, wie bei fast allen Programmierunter- 
nehmungen, aber schnell unübersehbar. 

Erst das übernächste Kapitel wird mit der Pascal- -Typo- 
logie fortfahren. Im nächsten Kapitel stellen die Typen 
nur das notwendige Hilfsmittel dar, um endlich alle Mög- 
lichkeiten auszuschöpfen, welche die Prozeduren. in Pas- 
cal bieten. 


Aufgaben. | 


1. Ergänzen Sie KartenSpiel um eine Prozedur, die am 
Schluß.noch den Punktwert des Blattes auf der Hand an- 
zeigt (mit einer üblichen Bewertung der Kärten). 

2. Entwerfen Sie für die Apfelzucht eine Prozedur, mit 
der ein Angebot zusammengestellt wird. Bei’jeder der lie- 
ferbaren Sorten (ein Teil-SET mit Elementen von TypAp- 
felsorte) fragt die Prozedur, ob sie in das Angebots-SET 
aufgenommen werden soll. Am Schluß wird zur Kontrol- 
le nochmal der gesamte „Korb“ angezeigt. 

- 3, Nutzen Sie die Möglichkeiten der SET-Variablen, um 
in ältere Programme Eingabekontrollen einzubauen. 


| Einführung von Parametern 


13 Prozeduren und Funk- 
tionen mit Parametern 


Die Einführung von Parametern - Die Unterschei- 
dung lokaler und globaler Größen - Werte- und 
Variablenparameter - Modularisierung - Prozeduren 
für den täglichen Gebrauch - Vier weitere nützliche 
Bausteine - UNITS - Funktionen - Zur geschachtelten 
Verwendung von Prozeduren - Rekursion - Aufgaben 


Was geht ein, was kommt heraus - wird diese Fragebeim Was geht ein, 
Entwurf von Prozeduren konsequent gestellt und die was kommt heraus 
Antwort in die Definition und den Aufruf der Prozedu- 

ren einbezogen, entstehen Prozeduren mit Parametern. 

Im Grunde sind viele Pascal-Elemente, wie Write und 

Read, wie die Funktionen Length, Copy und andere, wie 

Assign, Rewrite, Reset und Close, wie ord, pred, succ, ja 

sogar die mathematischen Operationen nichts anderes als 

Prozeduren, Hilfsprogramme, die für bestimmte Arten 

(Typen) von Größen eine bestimmte Aufgabe erledigen. 

Mit welchem Wert des festgelegten Typs (beziehungswei- 

se welcher Variablen dieses Typs) diese vordefinierten 

Prozeduren arbeiten, wird in der Regel in Klammern hin- 

ter das Pascal-Wort geschrieben. Genau diese Objekte in 

Klammern heißen Parameter (eigentlich die „Bei-Maße“) 

der betreffenden Prozeduren. 


Die Einführung von Parametern 


Betrachten Sie das Programm KartenSpiel aus dem letzten Das Beispiel 
Kapitel. Nehmen Sie an, daß Sie nach dem Ziehen der Karten ziehen 
Karten nicht nur einen Blick in das Blatt auf der Hand 

werfen, sondern auch den Stapel auf dem fiktiven Tisch 

kontrollieren wollen. Wie muß das Programm ergänzt 

werden? Die Prozedur Blatt Zeigen läßt Sie nur in die Hand 

spicken. Sie könnten eine entsprechende Prozedur für 

den Stapel schreiben, indem Sie die Variable Hand durch 

Stapel ersetzen und sich einen neuen Namen für die Pro- 

zedur ausdenken. 


PROCEDURE StapelZeigen; 
BEGIN 


ClrScr; 
FOR Karte := As TO Koenig: DO 
IF Karte IN Stapel THEN Anzeigen; 


END; 


Was aber ist, wenn noch weitere Personen mitspielen, 


in deren Karten „gelugt” werden soll? Muß für jede Hand 
eine eigene Prozedur geschaffen werden? Mit der Para- 
metrisierung der ursprünglichen Prozedur läßt sich die- 
ser unnötige Aufwand vermeiden. Wenn ein oder rnehre- 
re zusätzliche Parameter eingeführt werden - eine 
alltägliche Aufgabe in der Programmierpraxis - sind der 
Prozedurkopf und jeder Aufruf der Prozedur zu ändern: 


1. In der Definition der Prozedur wird der Prözedur- 


kopf um den (oder die) formalen Parameter samt Typna- 
men ergänzt. Vorsicht: Die Typbeschreibung (implizite 


Typdeklaration) genügt nicht, es muß tatsächlich ein Typ- 


name’ angegeben sein! 


2. Bei jedem Aufruf ist ein aktueller Parameter (meist 


eine Variable) anzugeben, der vom selben Typ sein muß 
wie der entsprechende formale Parameter in der Deklära- 
tion. Der Gebrauch des Wortes „aktuell” meint in diesem 
Zusammenhang die Parameter, mit denen tatsächlich ge- 
arbeitet wird, das heißt, die für einen bestimmten Aufruf 
das effektive ‚Beimaß” der Prozedur darstellen. Sie wer- 
den demgemäß auch Aufruf- oder Aktualparameter ge- 
nannt. - 


In der Prozedurdeklaration des Beispiels wird als for- 


maler Parameter etwa KartenGruppe vom TypKartenSet 


festgelegt: 
PROCEDURE BlattZeigen (Kartengruppe: : TypKartenSet); 
BEGIN 
ClrScr; . 
FOR Karte := As TO Koenig DO 


IF Karte IN Kartengruppe THEN Anzeigen; 


END; 


Möchten Sie jetzt tatsächlich in die Hand schauen, wird 
die Prozedur mit Hand als Beimaß aufgerufen: 


BlattZeigen (Hand); 


Ganz analog decken Sie den Stapel auf: 


BlattZeigen (Stapel); 


Mittels eines entsprechenden Aufrufs gibt also die eine 
Prozedur Blatt Zeigen über jede Variable des TypKartenSet 
Auskunft. 

Das Pascal-Wort Kartengruppe, das als formaler Para- 
meter dient, ist eigentlich nur ein Hilfsmittel zur Be- 
schreibung des Ablaufschemas der Prozedur. Beim Auf- 
ruf wird der jeweilige Aktualparameter praktisch für 
Kartengruppe eingesetzt. All das, was im Prozedurinneren 
für den Formalparameter beschrieben war, geschieht mit 
dem Aufrufparameter. 

Ein wesentliches Qualitätskriterium für Programme ist 
deren Änderungsfreundlichkeit: Mit welchem Aufwand 
läßt sich das Programm anpassen, wenn die Anforderun- 
gen geringfügig variieren. Wie Sie beobachten, gestattet 
die parametrisierte Prozedur, ohne Schwierigkeiten einen 
Blick in zusätzliche Kartengruppen zu werfen. 

Es wäre übrigens nicht nötig gewesen, sich ein eigenes 
Pascal-Wort für den formalen Parameter auszudenken. 
Man hätte Hand als Bezeichnung nehmen und dennoch 
nachher die Prozedur für Stapel aufrufen können. 


BlattZeigen (Stapel); 


steht formal nicht im Widerspruch zu folgender Deklara- 
tion, die völlig gleichwertig zu der mit Kartengruppe ist: 


PROCEDURE BlattZeigen (Hand : TypKartenSet); 
BEGIN 
FOR Karte := As TO Koenig DO 
IF Karte IN Hand THEN Anzeigen; 
END; 


Achten Sie darauf, nicht gleich in eine der übleren Fal- 
len von Pascal-Programmen zu stolpern. Nimmt man 
versehentlich als Parameternamen Kartengruppe, arbeitet 
aber im Prozedurinneren weiter mit Hand, läßt sich die 


Prozedur mit Stapel aufrufen, aber zeigt die Karten aus » 


der Hand. 

Die Möglichkeit, einen Variablennamen des Hauptpro- 
gramms auch als Parameternamen zu verwenden, sei 
jetzt genutzt, um bequem Anzeigen zu parametrisieren. 
Ein neuer Prozedurkopf lautet: 


PROCEDURE Anzeigen (Karte : TypKarte); 


Funktionsweise 


Änderungsfreundlichkeit 
dank parametrisierter 
Prozeduren 


Vorsicht Falle 


Weitere 
Parametrisierungen 
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Sonst müssen Sie an der Deklaration nichts ändern. 
Wenn Sie das Programm entsprechend korrigieren, müs- 
sen Sie nur daran denken, daß ab jetzt auch im Aufruf ein 
Parameter stehen muß. Nach Herzenslust können Sie im 
Programm nun zusätzliche Variablen vom TypKarte ein- 
bauen und sich jede anzeigen lassen, etwa: 


HoechsteKarte, NiedrigsterwWert, TrumpfAs : TypKarte; 


Die Unterscheidung lokaler und 
globaler Größen 


Ob eine Größe als Parameter der Prozedur auftreten soll, 
hat viel mit der Unterscheidung lokaler und globaler Va- 
riablen zu tun. Eine Variable ist lokal, ortszugehörig, in - 
der Prozedur, in der sie deklariert wurde. Global heißen 
Variable, die in einer übergeordneten Prozedur bezie- 
hungsweise dem Hauptprogramm vereinbart wurden. 
Ganz entsprechend kann auch von lokalen und globalen 
Konstanten, Typen und Prozeduren gesprochen werden. 
Lokal und global sind strenggenommen relative Begriffe: 


‘Die Variable i der Prozedur Programmerklaerung ist lokal 


im Verhältnis zum Hauptprogramm, aber global gegen- 
über der Subprozedur Copyright. 

Als Grundsatz kann gelten: Alle Objekte (Variable, Ty- 
pen, Konstanten, aber auch Prozeduren, auf die ebenfalls 
die Begriffe Jokal und global anwendbar sind) sollen an 
dem Ort angesiedelt werden, an dem sie ihren Sinn und 
ihre Funktion haben. 


Abbildung 13-1: ist lokal in Programmerklaerung, aber global gegen über Copyright. 


Lokale und globale Größen 


VAR Karo: TypKarto 


VAR Karte: TypKarte 





Abbildung 13-2: Karte „innen” verdeckt Karte „außen, solange die Prozedur arbeitet. 


Zum Beispiel hat die Variable Karte in der Prozedur 
BlattZeigen eine vollständig ortsbezogene Bedeutung. Sie 
dient nur als Hilfsgröße, um alle Werte von As bis Koenig 
abzuklappern. Was in der Prozedur mit ihr geschieht, soll 
keinerlei Verbindung mit Vorgängen außerhalb haben. 
Deshalb erhält Karte besser eine lokale Deklaration (ge- 
nauso wie schon 1, X in Ziehen und i in Progranımerklae- 


rung): 
PROCEDURE BlattZeigen (Kartengruppe : TypKartenSet); 
VAR 

Karte : TypKarte; 
BEGIN 

ClrScr; 

FOR Karte := As TO Koenig DO 

IF Karte IN Kartengruppe THEN Anzeigen; 

END; 


Es macht gar nichts, daß außerdem Karteals globale Va- „Verdecken“ eines 
riable existiert. Wenn ein global definierter Pascal-Name Pascal-Wortes 
(gleichgültig ob für Variable, Typen, Konstanten, oder 
Prozeduren) lokal neu vereinbart wird, so wird davon ge- 
sprochen, daß die globale Bedeutung innerhalb der Pro- 
zedur verdeckt oder ausgeblendet ist. Solange die Proze- 
dur arbeitet, haben die örtlichen Namen Vorrang. 

Nachher verschwinden diese wieder, und die globalen 
Größen kommen zum Vorschein. 

Einer der unangenehmsten Fehler, der in Pascal-Pro- Seiteneffekte 
grammen auftreten kann (oben erwähnte „Fälle“), 
kommt zustande, wenn in einer Prozedur versehentlich 
mit einer globalen Variablen hantiert wird, weil die Neu- 
deklaration oder eine Umbenennung vergessen wurde. 

In BlattZeigen zum Beispiel trägt Karte am Schluß stets 


den Wert Koenig. In der ursprünglichen Programmfas- 
sung stört das nur deshalb nicht, weil die Prozedur ami 
Programmschluß aufgerufen wird. Würde man dem 
Spieler oder der Spielerin erlauben, unmittelbar nach 
dem Ziehen ins Blatt zu schauen, vergäße aber, Karte lokal 
zu definieren, so wäre auf einmal ein böser Taschenspie- 
lertrick installiert. Scheinbar würde immer der Koenig ge- 
zogen, da er den Endwert der FOR-Schleife darstellt. 

Wenn das Unterprogramm mit den Objekten der überge- 
ordneten Prozedur arbeitet und oft schier unerklärliche 
Effekte bewirkt, wird.von einem Seiteneffekt des Unter- 
programms gesprochen. 


Werte- und 
Variablenparameter 


In folgender Abwandlung kann KartenSpiel schon recht 
unterhaltsam sein. Zwei Personen sollen abwechselnd ; je 
eine Karte ziehen, wer jeweils die höhere findet, darf bei- 
de behalten. Gewonnen hat, wer am Schluß die höchste 
Punktzahl auf der Hand hält. Das Programm benötigt, 
um zwei Karten vergleichen zu können, zwei Variable, et- 
wa KarteA (der ersten Person zugehörig) und KarteB (von 
der anderen Person gezogen), beide vom TypKarte. Die 
Abfrage lautet dann: 


IF KarteA > KarteB - 


Damit die beiden Spieler die Karten aufnehmen kön- 
nen, werden noch zwei Variablen HandA und HandB vom 
TypKartenSet benötigt. Die Prozedur. Ziehen bringt im ur- 
sprünglichen Programm einen zufälligen Wert auf Karte. 
Ziehen läßt sich parametrisieren, um beliebige Variablen 
vom TypKarte zu besetzen. Jedoch unterscheidet sich die 
Aufgabe der Parameter in den Prozeduren Anzeigen oder 
Blatt Zeigen auf der einen, Ziehen auf der anderen Seite in 
einem wichtigen Punkt..Die oben besprochenen „schluk- 
ken“ vorher vorhandene Werte und verarbeiten sie im In- 
neren. Ziehen dagegen gibt im Inneren einer Größe einen 
Wert, der nachher außen gebraucht wird. In der ersten Si- 
tuation wird von einem Werteparameter gesprochen, in 
der zweiten handelt.es sich um einen sogenärinten Vari- 
abienparameter. In der. Deklaration eines Parameters der 
zweiten Art steht zusätzlich VAR vor dem Parameterna- 


men: 


PROCEDURE Ziehen (VAR Karte : TypKarte); 
VAR 

i, X : Cardinal; 
BEGIN 


END; 
Der Aufruf erfolgt ohne besondere Kennzeichen: 


Ziehen (KarteA); 
Ziehen (KarteB); 


Ein Werteparameter trägt eigentlich nur den Wert einer 
Variablen oder eines Ausdrucks in das Prozedurinnere. 
Dort ist eine (systeminterne) lokale Variable reserviert, 
auf die eine Kopie des Wertes gebracht wird. Mit dieser 
Kopie kann nach Herzenslust gearbeitet werden. Was 
auch immer mit ihr geschieht, ist nach Verlassen der Pro- 
zedur wieder vergessen. Ein Fehler innerhalb der Proze- 
dur kann im Hauptprogramm keinen Schaden anrichten. 
Beim Variablenparameter dagegen arbeitet die Prozedur 
tatsächlich mit der globalen Variablen, die im Aufruf 
steht. Mitsamt der Variablen „schlüpft” ihr Wert nach in- 
nen. Auch wandert ein eventueller neuer Wert, der ihr 
dort verliehen wird, mit in den äußeren Programmteil. 
| Werteparameter sind Einbahnstraßen und dienen nur Merkzettel 

dem Datenimport (was geht ein), Variablenparameter 
exportieren auch Daten (was kommt heraus). 


_ —r 





Bei sehr großen Datenobjekten wird allerdings in An- Ausnahme 
betracht des Speicherplatzes, den die lokale Datenkopie 
bei Werteparametern erfordert, einem Variablenparame- 
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Abbildung 13-3: Wert- und Variablenparameter 






ter auch dann der Vorzug gegeben, wenn die Daten nur 
importiert werden sollen. 


Zwei, drei, viele Parameter 


Was ist eigentlich mit den beiden Objekten Stapel und An- 
zahl AufStapel in der Prozedur Ziehen? Söllten sie nicht 
auch in Parameter umgewandelt werden? Wenn, dann je- 
denfalls in Variablenparameter, denn es ist eine für den 
weiteren Programmablauf global interessante Angele- 
genheit, welche Karten im Stapel verbleiben. Es ist ohne 
weiteres möglich, einer Prozedur auch zwei oder mehr 
Parameter zu geben - inwiefern dies bei Ziehen Sinn 
macht, wird später diskutiert. In der Definition sind die 
Beschreibungen der einzelnen Parameter durch Semiko- 
lon zu trennen, beim Aufruf steht zwischen den Aktual- 
parametern das Komma. Der Prozedurkopf von Ziehen 
könnte also wie folgt ergänzt werden: 


PROCEDURE Ziehen 
(VAR Karte: TypRarte; 
VAR Stapel: TypKartensSet; 
VAR AnzahlAufStapel: Cardinal); 


Bei jedem Aufruf müssen dann ebenfalls drei Parame- 
ter stehen, der erste eine Variable vom TypKarte, der zwei- 
te vom TypKartenSet, der dritte Cardinal: 


ziehen (KarteA, Stapel, AnzahlAufStapel); 


Das Pascal-System ordnet Formal- und Aktualparameter 
einander entsprechend ihrer Reihenfolge zu. Dabei dür- 
fen Werte- und Variablenparameter beliebig gemischt 
vorkommen und auch mehrere Parameter desselben 
Typs vereinbart werden. Vielleicht ist es nützlich, an die- 
ser Stelle das Syntaxdiagramm für die Deklaration des 
Prozedurkopfes (und getrennt die Parameterliste) auf- 
zuzeichnen (siehe Abb. 13-4 und 13-5). | 

Bemerken Sie in Abb.:13-5 den Schlenker, der hinter Pa- 
rameteriame abzweigt und über ein Komma erneut auf 
Parametername führt? Er besagt, daß mehrere Parameter 
desselben Typs (wenn Sie entweder sämtlich Variablen- 
oder sämtlich Werteparameter sind) auch .gemeinsam 
aufgeführt werden dürfen. Als Beispiel sei der Kopf einer 
Prozedur Spielrunde aufgeschrieben. Die Prozedur soll 
die vorher gezogenen Werte KarteA und KarteB verglei- 
chen und je nach Ausgang die beiden Karten.zu HandA 
oder HandB hinzufügen: 
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Abbildung 13-4: Syntaxdiagranım Prozedurkopf 


PROCEDURE Spielrunde 


(KarteA, KarteB ı TypKarte; 
VAR HandA, HandB : TypKartenSet); 
BEGIN 
IF KarteA > KarteB 
THEN 
HandA := HandA + [KarteA, KarteB] 
ELSE 


{KarteA = KarteB ist unmöglich, es kann daher von 
KarteB < KarteA ausgegangen werden.) 


HandB := HandB + [KarteA, KarteB); 
END; 


Modularisierung 


Wie Sie sehen, ist es möglich, eine Prozedur komplett zu 
parametrisieren. Jeder Werteaustausch mit dem überge- 
ordneten Programm vollzieht sich über die ausgewiesene 
Schnittstelle, das heißt die Parameter. Ansonsten arbeitet 
die Prozedur ausschließlich mit lokalen Variablen, die in 
ihr deklariert sind. Die Prozedur darf sich sozusagen ihr 
eigenes kleines Reich schaffen, in das ihr niemand hinein- 
redet. Nur die Parameter erlauben dann einen genau ge- 
regelten Datenverkehr mit ihrer Außenwelt. Die Ideal- 
form einer selbständigen Programmeinheit, die 
ausschließlich über definierte Schnittstellen, welche den 
Rahmen der möglichen Informationsflüsse festlegen, mit 
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Abbildung 13- 2 Syntaxdiagramm Paramieterliste 


anderen Einheiten in Verbindung tritt, wird Modul ge- 
nannt. 

Modularisierung heißt das Prinzip der Aufteilung ei- 
ner großen Aufgabe in strikt voneinander getrennte Teil- 
probleme. Sie bildet den wesentlichen Ansatz des „Soft- 
ware Engineering”, der Lehre von der ingenieurmäßigen 
Herstellung.von Söftware. Die damit verbundenen Er- 
wartungen gründen in der Annahme, daß in einem gro- 
ßen Projekt kleine Bausteine sicher beherrschbar sind und 
so gefertigt werden, daß sie unabhängig von ihrer Umge- 
bung funktionieren. Daraus wird abgeleitet, daß nachher 
das Ganze im gewünschten Sinn arbeitet. 

Aber auch wenn der Ansatz die’Schwierigkeiten des 
Programmierens nicht aufheben kann, ist die modulare 
Herangehensweise beim Entwerfen und Testen sehr hilf- 
reich. Ein Modul kann geschrieben werden, ohne daß das 
umgebende Programm näher bekannt sein muß. Formal 
ist er ohne weiteres ersetzbar durch jede Einheit, die über 
eine identische Schnittstelle verfügt. Die Fortentwicklun- 
gen von Pascal, unter anderem Modula2 und Oberon, 
verfügen über ein ausgeführtes Modulkonzept. Aber 
auch UCSD-, Turbo- und Quick-Pascal haben mit den 
Units (vergleiche unten) so etwas wie Moduln in die 


Sprache aufgenommen. Im herkömmlichen Pascal sollte 
man das Prinzip der Modularisierung als Leitfaden für 
das Schreiben parametrisierter Prozeduren betrachten. 

In welchem Ausmaß dieses Prinzip befolgt werden 
soll, ist allerdings eine Sache der Programmierphiloso- 
phie und auch des dafür zu treibenden Aufwandes. Es 
kann durchaus sinnvoll sein, mit globalen Variablen statt 
mit Parametern zu arbeiten. Der reinen Lehre der Modu- 
larisierung entspricht zum Beispiel die Prozedur Ziehen. 
Praktisch unumgänglich und notwendig ist die Parame- 
trisierung von Stapel und AnzalılAufStapel hier jedoch nur, 
wenn es tatsächlich verschiedene Stapel zum Kartenzie- 
hen gibt (oder mit einer entsprechenden Programmer- 
weiterung zu rechnen ist). Wenn dagegen klar ist, daß 
sich alle Prozedurhandlungen stets mit ein- und demsel- 
ben Stoß Karten beschäftigen, können Sie auch die Auf- 
fassung vertreten, daß eine derartige globale Größe 
grundsätzlich allen Prozeduren zur Verfügung steht, oh- 
ne weitere formale Kontrolle. 

Die Frage der Parametrisierung hängt eng mit den 
schon in Kapitel 3 erwähnten „top down“- und „bottom 
up“-Programmiertechniken zusammen. Nach dem Top- 
down-Schema ist die Gesamtaufgabe grob in Teilproble- 
me, Prozeduren zu gliedern. Die Teile sind weiter zu 
analysieren, von ihnen die Teile wieder zu zerlegen, bis 
man schließlich bei den elementaren Befehlen der Pro- 
grammiersprache angekommen ist. 

Bottom-up kann so aufgefaßt werden, daß derselbe 
Weg, nur diesmal vom Boden nach oben, gegangen wird. 
Zielorientiert werden der Sprache Elemente, Prozeduren 
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Abbildung 13-6: Moduln mit Schnittstellen als Bausteine eines Gesamtprojekts 
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Compileroption 


hinzugefügt, bis sich die große Aufgabe unmittelbar lö- 
sen läßt. Der Akzent kann aber auch ganz auf diese Er- 
weiterung der Sprachmittel gesetzt werden. Man hat we- 
niger ein bestimmtes Ziel (Programm) im Auge, sondern 
bemüht sich, der Sprache universell verwendbare und 
leistungsfähige Elemente hinzuzufügen. Nicht so sehr 
die hierarchische Struktur des Programms, sondern die 
Elementaranweisungen El, ... sind entscheidend (Abb. 
13-7). 

Module und parametrisierte Prozeduren können als 
universelle Sprachelemente für die unteren Ebenen di- 
verser Programme gedeutet werden. Weil sie sozusagen 
autark sind, lassen sie sich in verschiedene Zusammen- 
hänge einfügen. Von ihnen wird eine bestimmte, formale 
Funktion verrichtet, die diversen Zwecken dienen kann. 


Prozeduren 
für den täglichen Gebrauch . 


Es gibt Funktionen, die in ähnlicher Form immer wieder 
benötigt werden. Sie können sich eine Sammlung solcher 
Hilfsmittel als eine Art Baukasten in einer Datei zusam- 
menstellen, die Sie bei Bedarf in ein Programm hineinko- 


'pieren.’Solche fertigen Werkzeuge (Tools) werden auch 


von vielen Firmen für unterschiedliche Zwecke und Pas- 
cal-Versionen (und andere Sprachen) angeboten. 

Um sparsamer zu wirtschaften und auch den Editor 
nicht unnötig zu beladen, können Sie die Include-Option 
des Compilers verwenden (include, „einschließen, hin- 
einnehmen“). Dazu schreiben Sie den Dateinamen der 
Prozedurensammlung (etwa BAUKAST.INC) wie einen . 
Kommentar in den Programmtext, wobei unmittelbar 
hinter der öffnenden Kommentarklammer $I stehen muß: 


{$I BAUKAST.INC} 


Nun wird der gesamte Text der Include-Datei ins Com- 
pilieren einbezogen, als stünde er selbst in der'Hauptda- 
tei (vorausgesetzt natürlich, BAUKAST.INC befindet sich 
auf der richtigen Diskette und im richtigen Unterver- 
zeichnis). Mit dieser Methode können auch Programme 
angegangen werden, die das Fassungsvermögen des Edi- 
tors übersteigen. 
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Abbildung 13-7: Strukturdiagramm mit Sprachelementen E1, E2, E3 
Wie wäre es mit einem universellen Baustein zur Ein- Baustein 
gabekontrolle, nach allen Regeln der Kunst geschrieben? Eingabekontrolle 
Die Prozeduren in den vorigen Kapiteln waren jeweils 
auf die Stelle im Programm bezogen, für die sie gebraucht 
wurden. Sie können sie jetzt parametrisieren und erhal- 
ten, fast ohne Veränderung, eine allgemein verwendbare 
Routine. Um MenueEingabe3 aus Kapitel 11 in eine allge- 
meine Prozedur zur Überprüfung von Char-Eingaben 
umzuwandeln, müssen Sie zunächst dafür sorgen, daß 
im übergeordneten Programm eine Typvereinbarung exi- 
stiert: 


TYPE 
TypZeichenSet = SET OF Char; 


Solche Deklarationen können eventuell mit in eine 
Baukastendatei aufgenommen werden. In Turbo-Pascal 
ist das unproblematisch, da es mehrere Typdeklarations- 
abschnitte geben darf. Alles andere bereitet keine Schwie- 
rigkeiten mehr: 


PROCEDURE CharEingabe 
(VAR Zeichen : Char; 
ZulaessigeEingaben : TypZeichenSet); 


{Deklarationsteil wie auf S. 178} 


BEGIN 
Zeichen := Readkey; {Oder: Read {kbd, Zeichen);) 
Write (Zeichen); 


Prozeduren | 


WHILE NOT (Zeichen IN ZulaessigeEingaben) 
{Hier geändert!} 
DO 
BEGIN 
Write (Fehlermeldung); 
vorFehlermeldungZurueckgehen; 
Zeichen := Readkey; {Oder: Read (kbd, Zeichen);} 
Write (Zeichen); 
LoescheFehlermeldung; 
END; 
{Hier geändert!} 
END; 


Die Zuweisung von Zeichen an Anlass, die ursprünglich 
als letzte Anweisung in der Prozedur stand, ist jetzt über- 
flüssig. Das eingelesene Zeichen kommt im Endeffekt auf 
den Aktualparameter. Der Aufruf von MenueEingabe in 
Kapitel 11 kann dann zum Beispiel ausgetauscht werden 


gegen: 
CharEingabe (Anlass, [’G’,’g’,'F','£E','’K','k','’P','p','E',’e']); 


callby value Für einen Werteparameter dürfen, wie Sie hier sehen, 
und call by reference Werte des betreffenden Typs in beliebiger Form stehen. Es 
wird daher auch von einem Aufruf „über den Wert“ (call 
by value) gesprochen. Beim Variablenparameter ist die 
Nennung der Variablen, mit der die Prozedur arbeiten 
soll, zwangsläufig. Der Aufruf geschieht „über den Na- 
men“ oder „durch Bezugnahme auf eine Variable” (call 
by name beziehungsweise call by reference). 


Vier weitere nützliche Bausteine 


Der Baustein Um Programme etwas ansprechender zu gestalten, ist ei- 
Zentrieren ne Reihe weiterer Bausteine nützlich. Zum Beispiel rückt 
die Prozedur Zentrieren ein beliebiges Textstueck in die 

Mitte der Zeile: 


PROCEDURE Zentrieren (Textstueck: TypNormalstring); 
CONST 

Zeilenbreite = 80; 
VAR 

AnzahlLeerzeichenInZeile, 

AnzahlLeerzeichenVorne, i : Integer; 


BEGIN 


| Vier nützliche Bausteine 


AnzahlLeerzeichenInZeile := Zeilenbreite - Length (Textstueck); 
AnzahlLeerzeichenVorne := AnzahlLeerzeichenInZeile DIV 2; 
FOR i:= 1 TO AnzahlLeerzeichenVorne DO write ('’ '); 


Write (Textstueck); 
END (* von Zentrieren *); 


Da Textstueck ein Werteparameter ist, können beim 
Aufruf STRING-Werte eingesetzt werden (zum Beispiel 
Zentrieren ("Guten Morgen!‘);). 

Bei diesem Beispiel stoßen Sie auf eine kleine Unan- 
nehmlichkeit: STRING [80] zum Beispiel gilt nicht als 
Typname, wie er bei der Parameterdefinition gefordert 
ist, sondern bereits als zusammengesetzte Typbeschrei- 
bung. STRING darf zwar in Turbo-Pascal ab Version 4.0 
auch allein stehen (und bedeutet dann einen STRING der 
maximal zulässigen Länge 255), aber die vordefinierte 
Standardlänge ist nicht immer die richtige. Im allgemei- 
nen sinnvoller (vorgeschrieben in Turbo-Pascal bis zur 
Version 3.x) ist, sich einen Typnamen für STRINGs der ge- 
wünschten Länge zu definieren. Vor der Deklaration von 
Zentrieren muß im Programm der Typ Normalstring ver- 
einbart werden, etwa durch: 


TYPE 
Normalstring = STRING [80]; 


Vertauschen Sie bei GoToXY immer noch gelegentlich 
Zeile und Spalte? Dann können Sie sich mit der folgenden 
winzigen Prozedur behelfen, die die Originalanweisung 
an die allgemeinen Sprachgewohnheiten (erst die Zeile, 
dann die Spalte) anpaßt. Nebenbei gewährleistet sie, daß 
der Bildschirmbereich nicht überschritten wird: 


STRING-Typen 


Der Baustein 
SchreibeAb 
(Zeile, Spalte) 


PROCEDURE SchreibeAb (Zeile, Spalte : Integer); 


CONST 
BildschirmHoehe = 25; 
BildschirmBreite = 80; 
BEGIN 


IF (Zeile <= BildschirmHoehe) AND (Spalte <= BildschirmBreite) 


THEN 
GoToXY (Spalte, Zeile); 
END; 


Der Aufruf SchreibeAb (23, 4); setzt dann den Cursor auf 
Zeile 23 und Spalte 4. \ 


Prozeduren | 






m m en & mm m gg en mn m 0 ww. 


Erwin Lindemann 
Michaela Meyer 
Christian Progranmmsky 
Gabriele Schulze-Maier 














Pascalstr. 123, 4630 Bochum 
Modulastr. 4, 6500 Mainz 
Diskettenweg 43, 5090 Leverkusen 
Blumenstr. 24, 6000 Frankfurt 


m 





Abbildung 13-8: Liste mit linksbündigen Texten 


Der Baustein Es ist einfach, einen STRING rechtsbündig auf vorge- 
Linksbuendig gebener Breite zu schreiben, indem Sie die Breite hinter 
dem Formatierungs-Doppelpunkt nennen (zum Beispiel - 
Write (Textstueck: 4)). Aber stellen Sie sich vor, Sie möch- 
ten eine Liste von Namen und Adressen auf den Bild- 
schirm bringen: Dann müssen die Texte linksbündig in. 

einem bestimmten Raum stehen. 
sie erreichen dies problemlos mit einer dafür geschaf- 

fenen Prozedur: 


PROCEDURE Linksbuendig 
(Textstueck : Normalstring; 


Breite 


BEGIN 
IF Length (Textstueck) > Breite 


END; 


THEN 


ı Integer); 


BEGIN 


Textstueck := Copy (Textstueck, 1, Breite); 
Write (Textstueck); 


END 
ELSE . 
BEGIN 


Write (Textstueck); 
Write (’':Breite-Length (Textstueck)); 


END; 


Wenn das Textstueck zu lang für seinen Platz ist, wird es 
mittels der vordefinierten Copy-Funktion gerade auf die 
zulässige Breite gestutzt und ausgegeben. Paßt es ohne 
Abschneiden, so wird der Text hingeschrieben und der 
Rest des vorgesehenen Platzes.mit Leerzeichen, aufge- 
füllt. Dabei wird der Trick angewendet, den leeren 
STRING ’’ auf die erforderliche Zahl von Zeichen zu for- 
matieren: 


Write (’’:Breite-Length (Textstueck)); 


Mittels der folgenden kleinen Prozedur können Sie 
nachschauen, ob auf der Diskette oder in einem Verzeich- 
nis unter einem bestimmten Dateinamen eine Datei exi- 
stiert. Dazu benötigen Sie einen weiteren Compilerbefehl. 
Normalerweise sorgt das Pascal-System dafür, daß ein 
Programm irregulär endet, falls ein Diskettenzugriff 
scheitert (zum Beispiel weil die Diskette fehlt oder der 
Dateiname ungültig war). Mit anderen Worten, das Pro- 
gramm stürzt ab, statt ohne gültige Daten weiterzulau- 
fen. Diese übliche Kontrolle der Eingabe- und Ausgabe- 
vorgänge ist mit der Compileroption $I- („]" für 
Input/Output, 1/O) aufhebbar. Allerdings muß man 
dann das Programm so gestalten, daß es selbst auf das 
Mißlingen von I/O-Operationen reagieren kann. 

Zur Abfrage des Erfolges eines 1/O-Vorgangs stellt 
Turbo-Pascal die Funktion IOResult zur Verfügung. In der 
Prozedur EroeffneZumLesen wird nach Abschaltung der 
1/O-Kontrolle versucht, eine Datei mit Reset zu eröffnen. 
IOResult trägt den Wert 0, wenn die Dateioperation ge- 
lingt. Scheitert die Eröffnung, steht eine Fehlernummer 
(eine ganze Zahl größer als 0) auf IOResult (welche Feh- 
lernummer für welches Vorkommnis hängt von der Pas- 
cal-Version ab). Nach außen signalisiert dann der boole- 
sche Variablenparameter nur, ob die Eröffnung 
erfolgreich verlief oder nicht. Damit im übrigen Pro- 
gramm wieder das Pascal-System für die Notbremse 
beim Auftreten von 1/O-Fehlern sorgt, wird zum Schluß 
die automatische I/O-Kontrolle mit $I+ wieder einge- 
schaltet. 


PROCEDURE EroeffneZumLesen; 
(VAR Datei ı Text; 
Dateinamen : Normalstring; 
VAR erfolgreich: Boolean); 


BEGIN 
{$I- } 
Assign (Datei, Dateinamen) ; 
Reset (Datei); 
IF IOResult = 0 


THEN erfolgreich := true 
ELSE erfolgreich := false 
{$I+ } 


END; 


| Vier nützliche Bausteine 


Der Baustein 
EroeffneZumLesen 


Parameter 
vom Typ Text 


Import und 
Export 


Mit der Prozedur läßt sich nicht nur feststellen, ob es 
eine bestimmte Datei auf einer Diskette gibt. Sie können 
die Prozedur auch in eine Schleife einbauen, die von den 
Benutzern des Programms die erneute Eingabe einer Da- 
teibezeichnung verlangt, solange erfolgreich weiter false 
bleibt. Auf diese Weise erhalten Sie eine Art Eingabe- 
kontrolle für ‚Dateinamen. Eventuell kann auch das 
Programm, wenn der Zugriff scheitert, selbst den Datei- 
namen verändern, zum Beispiel.eine Laufwerksbezeich- 
nung (A:, B:) vorne anfügen oder eine Namenserweite- 
rung (.TXT, .PAS) hinten ergänzen, und dann erneut 
versuchen, die Datei zu eröffnen. 

Wie am letzten Beispiel deutlich wird, können auch Pa- 
rameter vom Standardtyp Text verwendet werden, aller- 
dings nur Variablenparameter. Die Einschränkung ist er- 
klärlich, denn sonst müßte eine Prozedur in der Lage 
sein, sich eine interne Kopie einer ganzen Datei anzufer- 
tigen. 


UNTIs 


Das oben geschilderte Verfahren, immer wieder verwen- 
dete Prozeduren in eine Datei BAUKAST.INC zu stecken, 
die in beliebige Programme hineinkopiert oder per Inclu- 
de-Anweisung vom Compiler aufgenommen werden 
kann, hat den Nachteil, daß die Prozeduren immer wie- 
der neu kompiliert werden. Dabei steht längst fest, daß 
sie keine Syntaxfehler mehr enthalten. Bei längeren Pro- 
grammen passiert es auf diese Weise leicht, daß hunderte 
von Kilobyte Programmtext ständig neu kompiliert wer- 
den, obwohl nur einige wenige Programmzeilen hinzu- 
gefügt oder geändert werden. Abhilfe schafft hier die Ein- 
führung von UNITs, Moduln, wie sie in Turbo-Pascal ab 
Version 4.0 und in Quick-Pascal, aber auch im alten 
UCSD-Pascal zur Verfügung stehen. 

Im formalen Aufbau ähnelt eine UNIT einem selbstän- 
digen Programm mit Kopf, Deklarationsteil mit Konstan- 
ten, Typen, Variablen und Prozeduren sowie einem An- 
weisungsteil und wird wie ein solches kompiliert. Eine 
UNIT verrichtet jedoch nicht als ganzes eine eigene Auf- 


‚gabe, sondern stellt in ihm deklarierte Konstante, Typen, 


Variable und Prozeduren für Programme und andere 
UNITTIs bereit. In Anlehnung an die beim Pascal-Ab- 
kömmling Modula-2 gebräuchliche Redeweise wird da- 


von gesprochen, daß eine UNIT bestimmte Bezeichner 
(Namen von Konstanten, Typen und so fort) exportiert 
und ein Programm beziehungsweise eine andere UNIT 
diese dann importieren kann. Neben dem rein internen 
IMPLEMENTATION-Abschnitt gehört daher zu jeder 
UNIT ein INTERFACE-Teil, in dem die potentiellen Ex- 
port-Objekte aufgezählt werden. Jedes Programm (oder 
auch eine andere UNIT), das mittels USE eine UNIT an- 
gefordert hat, kann die Objekte von dessen INTERFACE- 
Teil aufrufen und gebrauchen, als wären sie seine eige- 
nen. | 

Wenn Sie über Turbo-Pascal ab Version 4.0 oder über 
Quick-Pascal verfügen, ist es zum Beispiel sinnvoll, daß 
Sie sich anstelle der Include-Datei BAUKAST.INC ein 
UNIT Baukast (die den Dateinamen BAUKAST.PAS tra- 
gen muß) einrichten. Bei der Anforderung dieser UNITs 
müssen Sie beachten, daß jedes Programm, welches Bau- 
kast verwendet, auch die in Baukast benutzte UNIT Crt 
anfordern muß. Wie erhalten Sie nun dies gewünschte 
UNIT? Zunächst schreiben Sie den UNTT-Kopf und den 
folgenden INTERFACE-Teil. Die hier genannten Proze- 
duren, Typen und so fort können anderen Programmen 
und UNTTIs zur Verfügung gestellt werden: 


UNIT Baukast; 


INTERFACE 
USES Crt, Printer; 
TYPE 
TYPZeichenset = SET OF Char; 
Normalstring = String [80]; 
PROCEDURE CharEingabe 
(VAR Zeichen : Char; 


ZulaessigeEingaben : TypZeichenset); 


Die UNIT 
Baukast 


PROCEDURE SchreibeAb (Zeile, Spalte : Integer); 


PROCEDURE Linksbuendig 


(Textstueck : Normalstring; 

Breite : Integer); 
PROCEDURE EroeffneZumLesen; 

(VAR Datei : Text; 

Dateinamen : Normalstring; 

VAR erfolgreich : Boolean); 


Der INTERFACE-Teil endet mit dem Schlüsselwort 
IMPLEMENTATION (ohne Semikolon). Danach wird die 
Innenwelt der UNIT beschrieben: Bei Bedarf können wei- 
tere Konstanten, Typen, Variable und Prözeduren verein- 


bart werden. Außerdem wird hier die vollständige Dekla- 
ration aller Prozeduren nachgeliefert. Die Prozedurköpfe 
werden dabei ein zweites Mal aufgeführt. Schließlich 
folgt noch der (oft leere) Anweisungsteil der UNIT, der 
durch BEGIN END umrahmt und mit einem Punkt abge- 
schlossen ist. Seine Anweisungen dienen ausschließlich 
der Initialisierung von Variablen. Sie werden lediglich 
einmal ausgeführt, und zwar unmittelbar beim Aufruf 


: des Programms, welches die UNIT mit einer USES-Klau- 


sel anfordert. Zum Beispiel können Sie, je nach Wunsch 
im INTERFACE- oder im IMPLEMENTATION-Teil, eine - 
Variable Kleinbuchstaben mit TypZeichenset deklarieren, 
die Sie mit folgender Anweisung im Anweisungsteil des 
UNIT ihrem Sinn entsprechend initialisieren: 


Kleinbuchstaben : = [’a’..’z’ 'ä’, 'ö’, 'Üü’, RR’); 


Die Bedeutung 
von UNITs 


UNITs bilden das geeignete Mittel, um vorgefertigte 
Programmelemente (Tools) auf Vorrat zu halten. Da die 
von ihnen zur Verfügung gestellten Prozeduren verwen- . 
det werden können, auch wenn sie nur in schon kompi- 
lierter Form vorliegen, können sie kommerziell vertrie- 
ben werden, ohne daß ihre interne Funktion offengelegt 
werden muß. Turbo- und Quick-Pascal machen. selbst 
reichlich Gebrauch von dieser Möglichkeit. Neben den 
UNITs Crt und Printer, die in allen Programmen dieses ' 
Buches angefordert werden, gehören unter anderem 
UNITS zur Grafikverwendung und zur Nutzung von 
DOS-Systemaufrufen zum Lieferumfang von Turbö- und 
Quick-Pascal. Der Hauptnachteil der UNITS. besteht da- 
rin, daß sie in Standard-Pascal noch nicht vorgesehen wa- 
ren und es daher Probleme bei der Übertragung auf ande- 
re Systeme geben:kann. 


Funktionen 


Funktionen sind eine spezielle Sorte von Unterprogram- 
men. Für Funktionen ist charakteristisch, daß sie ein Er- 
gebnis hervorbringen, das sich unmittelbar in einem Pas- 
cäal-Programm wie ein Wert verwenden läßt, zum Beispiel 
auf der rechten Seite einer Wertzuweisung. Mit einer Rei- 
he von vordefinierten Funktionen wurde bereits gearbei- 


tet: 


O Round (Dezimalzahl) ergibt die zum Real-Wert Dezi- 
malzahl gehörende gerundete Integer-Zahl (zum Bei- 
spiel ergibt Round (17.9) die Zahl 18). 

O Trunc (Dezimalzahl) schneidet die Nachkommastellen 
eines Real-Wertes ab (trunc (17.9) ergibt die Zahl 17). 

O Ord (Wert) bezeichnet die Ördnungsnummer entspre- 
chend der Werteliste eines Aufzählungstyps (zum Bei- 
spiel ist ord (’a’) gleich 97). 

O Chr (Nummer) ist eine auf Char-Werte beschränkte 
Umkehrung von ord. Es kommt das zu Nummer gehö- 
rige Zeichen gemäß der Char-Liste heraus (Zum Bei- 
spiel bedeutet chr (97) das Zeichen ’a‘). 


Diese vier Funktionen sind die vier Transferfunktionen 
von Standard-Pascal. Sie heißen so, weil sie Werte von eı- 
nem Iyp zu einem anderem übertragen. Im letzten Kapi- 
tel wurden auch die Nachfolger- und Vorgängerfunktion 
für Aufzählungstypen vorgestellt (succ und pred). Auch 
der boolesche Ausdruck eof (Datei), durch den das Pro- 
gramm das Ende einer Datei feststellt, stellt einen Aufruf 
der Funktion eof dar. Ähnlich läßt sich mit EoLn (Datei) 
prüfen, ob in einer Textdatei gerade ein Zeilenende gele- 
sen wurde. 

In Turbo-Pascal gibt es die vordefinierte, parameterlose 
boolesche Funktion KeyPressed. Mit ihrer Hilfe läßt sich 
feststellen, ob irgendeine Taste gedrückt wurde, um nur 
in diesem Fall ein Zeichen von der Tastatur einzulesen. 
Auf diese Weise kann zum Beispiel eine Schleife immer 
weiter laufen, solange keine Taste betätigt wird: 


WHILE NOT Keypressed DO Ü...); 
{Weiterdrucken)} 


Wenn das Zeichen unter Verwendung einer Leseanwei- 
sung vom Tastaturpuffer geholt wird, zeigt KeyPressed 
wieder false. 

Den Absolutbetrag einer Zahl, in der Me IxI 
geschrieben, erhält man in Pasca}-mit: 


% 


abs (x) 


Testen Sie die Funktion mit einem kleinen Programm, 
das zu jeder eingegebenen (auch negativen) Zahl ihren 
Betrag anzeigt. Als Abkürzung für x*x dürfen Sie, um ei- 
ne Zahl zu quadrieren, auch schreiben: 


sqar (x) 2 


s 


KeyPressed 


Mathematische 
Funktionen in Pascal 


Deklaration 


(gelesen wie englisch „square”, Quadrat). Die Umkeh- 
rung des Quadrierens ist das Ziehen der Quadratwürzel, 
symbolisiert durch das Wurzelzeichen V. Ya zu bestim- 
men, heißt in der: Mathematik, die Zahl zu suchen, die mit 
sich selbst multipliziert gerade a ergibt. Zum Beispiel ist 
v9 gleich 3: (denn 3*3=9) oder v2 ungefähr 1.414... Das 
Pascal-System führt diese Operation aus, wenn die Funk- 
ton sqrt (square root, „Quadratwurzel”). aufgerufen 
wird: 


sqrt (a) 

Es gibt in der Mathematik eine Sorte von Funktionen, 
die transzendent heißen. Die wichtigsten gehören zum 
Standard von Pascal: sin (Sinus), cos (Cosinus), In (der na- 
türliche Logarithmus zur Basis e), arctan (Arcustangens), 
exp (Exponens). In Turbo-Pascal existieren noch zahlrei- 
che weitere vordefinierte Funktionen, die zum Teil schon 
erwähnt wurden oder die Sie im Handbuch nachschlagen 
können. Aber es ist auch nicht schwer; eigene Funktionen 
zu deklarieren. . 


Selbstdefinierte Funktionen 


Abgesehen davon, daß sie mit dem Schlüsselwort 


FUNCTION anstelle von PROCEDURE eingeleitet wird, 
unterscheidet sich die Syntax der Funktionsdeklaration 
nur wenig von einer Prozedurdeklaration: Entscheidend 
ist, daß die Funktion nachher quasi auf ihrem Namen ei- 
nen Wert - das Funktionsergebnis - trägt. Daher wird der 
Kopf der Deklaration abgeschlossen mit der Angabe des 
Ergebnistyps für die Funktion. In Standard-Pascal sind 
als Ergebnistyp nur einfache Typen (Real, Integer, Char, 


. Boolean sowie Teilbereiche), in Turbo-Pascal außerdem 


STRING zugelassen. Im Anweisungsteil der Funktion 
muß irgendwann ein Wert - das Funktionsergebnis - dem 
Funktionsnamen zugewiesen werden. Insofern wird der 
Funktionsname wie ein Variablenname gebraucht. Je- 
doch darf er nicht auf der rechten Seite einer Wertzuwei- 
sung oder als Teil eines Ausdrucks erscheinen. Eine Funk- 
tion darf wie eine Prozedur einen (oder. keinen oder 
mehrere) Werte- oder Variablenparameter besitzen. Da 
sie aber auf ihrem eigenen Namen Ergebnisse näch außen 
tragen kann, sollten in der Regel keine Variablenparame- 
ter, zum selben Zweck verwendet werden. 


Betrachten Sie das folgende Beispiel einer booleschen Eine boolesche 
Funktion, das heißt einer Funktion mit dem Ergebnistyp Funktion 
Boolean. Gerade solche Funktionen können sich, ähnlich 
wie zum Beispiel die vordefinierte eof-Funktion, beim 
Programmieren als sehr praktisch erweisen. Die Funktion 
UrlaubsgeldReicht würde sich zum Beispiel eignen, um 
Entscheidungen zu beeinflussen oder Signale für das Ver- 
halten im Urlaub zu setzen: 


FUNCTION UrliaubsgeldReicht 
(MomentanerKassenstand, MitgenommenesGeld : Real; 


GesamtUrlaubslaenge, RestUrlaubslaenge : Integer) 
: Boolean; 
VAR 
AusgegebenesGeld, 
BisherigerTagesverbrauch : Real; 
VerstricheneUrlaubstage : Integer; 
BEGIN 
VerstricheneUrlaubstage := GesamtUrlaubslaenge - 


RestUrlaubslaenge; 
AusgegebenesGeld := MitgenommenesGeld - MomentanerKassenstand; 
BisherigerTagesverbrauch := AusgegebenesGeld / 
VerstricheneUrlaubstage; 
IF Resturlaubslaenge * BisherigerTagesverbrauch < 
MomentanerKassenstand 
THEN  UrlaubsgeldReicht := tue 
ELSE UrlaubsgeldReicht := false; 
END; 


Eine Anwendung einfachster Form wäre die Anweisung: 


IF NOT UrlaubsgeldReicht {300.78, 800, 14, 6) 
THEN WriteLn (’Sparsamer leben oder Geld beschaffen! ’); 


Ein kleines Beispiel aus der Statistik ist die Funktion Mittelwertsfunktion 
Mittel: zwei Zahlen werden gemittelt, indem sie addiert 
werden und das Ergebnis durch 2 dividiert wird. Sowohl 
die beiden Parameter als auch das Ergebnis sind dabei 


vom Typ Real. 
FUNCTION Mittel (Zahll1, Zahl2:Real) : Real; 
VAR 
Summe : Real; 
BEGIN 
Summe := Zahli + Zahl2; 
Mittel := Summe/2; 


END; 


Merkzettel 


FORWARD-Deklaration 
von Prozeduren 
und Funktionen 


Zur geschachtelten Verwendung 
von Prozeduren i 


Eine Prozedur (oder eine Funktion) kann, wie Sie wissen, 
genauso wie ein selbständiges Programm eigene Unter- 
prozeduren und Unterfunktionen haben und diese ver- 
wenden. Sie hat darüber hinaus Zugriff auf vorher dekla- 
rierte Prozeduren: 


m nn ne er nn m eg 
Eine Prozedur bzw. eine Funktion kann alle Prozedu- 
ren und Funktionen aufrufen, die entweder auf dersel- | 
ben oder einer höheren Ebene als’ sie stehen. 


u 








"Im Programm Kartenspiel aus dem letzten Kapitel darf 
deshalb die Prozedur BlattZeigen die Prozedur Anzeigen 
rufen. Eine Unterprozedur von BlattZeigen könnte dassel- 
be tun. Allerdings muß in jedem Fall der Name der geru- 
fenen Prozedur an dem Punkt des Programmtextes, an 
dem der Ruf ergeht, schon bekannt sein (sonst kommt die 


. Fehlermeldung „nicht deklariert“). Der technische Grund 


dafür ist, daß Pascal-Compiler in der Lage sein sollen, in 
einem einzigen Durchgang das Programm in Maschinen- 
sprache zu übersetzen. Deshalb „überblicken” Sie nicht, 
ob eine Prozedur später noch deklariert wird. 

Es gibt jedoch Fälle, in denen sich Prozeduren oder 
Funktionen gegenseitig beispringen müssen. Dann muß 
die zuerst im Programmtext auftauchende Prozedur auch 
die später deklarierte verwenden können. Als Ausweg 
für diese Situation ist in Pascal vorgesehen, von der zwei- 
ten Prozedur (oder von beiden) vorneweg erst einmal 
den Prozedurkopf zu nennen und damit anzukündigen: 
„Deklaration folgt noch - Fehlermeldung nicht erforder- 
lich“. Dazu wird zunächst der vollständige Prozedurkopf 
(samt eventuellen Parametern) mit der Ergänzung FOR- 
WARD hingeschrieben und so nach „vorwärts” verwie- 
sen. Irgendwann im weiteren Verlauf des Textes wird der 
Kopf der Prozedur ohne Parameterangaben wiederholt 
und der Deklarations- und Anweisungsteil hingeschrie- 
ben. Zum Beispiel sähe die FORWARD-Deklaration bei 
BlattZeigen in der letzten Fassung so aus: 


PROCEDURE BlattZeigen (Kartengruppe: TypKarten$Set); FORWARD; 


Die eigentliche Definition käme dann irgendwann spä- 
ter im Programm und würde lediglich eingeleitet durch 


PROCEDURE BlattZeigen; (ohne Wiederholung der Para- 
meter). 

Eine Prozedur oder eine Funktion darf sich auch selbst 
aufrufen (beziehungsweise eine zweite Prozedur, die 
dann wieder auf die erste zurückgreift). In diesem Fall re- 
kurriert sie auf sich selbst, das heißt, sie läuft auf sich 
selbst zurück. Es wird von einer rekursiven Verwendung 
der Prozedur oder von einer Rekursion gesprochen. 


Rekursion 


Gewiß haben Sie es schon einmal ausprobiert: Wenn zwei 
Spiegel fast parallel gestellt werden, spiegelt sich der er- 
ste im zweiten, der zweite sendet sein Konterfei samt 
Spiegelbild des ersten zu diesem zurück, der setzt das 
Spiel fort. In einem Augenblick pflanzt sich die Reihe der 
Bilder von gespiegelten Spiegelbildern fort, bis sie schein- 
bar im Unendlichen verschwimmt. Das ist ein ganz all- 
tägliches Beispiel für das, was geschieht, wenn sich zwei 
Funktionen, hier zwei Spiegelungen, wechselseitig an- 
sprechen. Die faszinierenden Phänomene, die heraus- 
kommen, stellen die Fähigkeit, ihr Zustandekommen zu 
begreifen, manchmal auf eine harte Probe. Die Rekursion 
bei Prozeduren macht es wie die Spiegel möglich, mit ge- 
ringen Mitteln die erstaunlichsten Effekte hervorzaubern. 
Eine Reihe fortgeschrittener Programmiertechniken las- 
sen sich ohne rekursive Prozeduren kaum bewerkstelli- 
gen. Freilich läßt sich auch mit keinem anderen Mittel so 
leicht ein Systemabsturz heraufbeschwören. Es ist eine 
der interessanten und wichtigsten, wenn auch nicht un- 
gefährlichen Eigenschaften von Pascal, daß im Gegensatz 
zu früheren Programmiersprachen Rekursion grundsätz- 
lich zugelassen wird. 

Vom Sprachgefühl her scheint eine Rekursion zunächst 
durchaus einfach zu sein. Zum Beispiel könnte eine einfa- 
che Prozedur zur Eingabekontrolle folgende Form haben: 


PROCEDURE Eingeben 
(VAR Zeichen : Char; 
ZulaessigerBereich : TypZeichen$et); 
BEGIN 
Zeichen := Readkey 
IF NOT (Zeichen IN ZulaessigerBereich) 


| Geschachtelte Prozeduren 


Rekursion und 
Wiederholungs- 
struktur 


THEN Eingeben (Zeichen, ZulaessigerBereich); 


END; 


Die Prozedur würde ein Zeichen einlesen und nachse- 
hen, ob es im SET ZulaessigerBereich enthalten ist.-Falls ja, 
gäbe sie das Zeichen auf dem Variablenparameter nach 
außen. Wenn nein - nun, dann müßte man es wieder ein- 
geben. Die Prozedur riefe sich selbst erneut auf. Vielleicht 
kommt Ihnen diese rekursive Methode, etwas ähnliches 
erneut geschehen zu lassen, sogar einfacher vor, als eine 
Wiederholungsstruktur anzuwenden. Dennoch handelt 
es sich um ein Beispiel, wie Rekursion nicht angewandt 
werden soll! Denn bei jedem Aufruf eirier rekursiven Pro- 
zedur (wie auch sonst bei jedem Prozeduraufruf) wird ei- 
ne Kopie des internen Variablensatzes der Prozedur im 
Speicher abgelegt. Nach dem Verlassen des jeweiligen 
Prozedurlaufs gibt das Pascal-System den betreffenden 
Speicherplatz wieder frei. Wenn beim Abarbeiten einer 
rekursiven Prozedur immer weiter (rekursive) Aufrufe 
hinzukommen, stapeln sich die benötigten Variablen im- 
mer höher. Ohne Vorsichtsmaßnahmen ergibt sich schnell 
eine Reihe in die Unendlichkeit wie bei den Spiegeln, 
aber: Irgendwann ist die Grenze des Speichers erreicht 
und das Programm stürzt ab. 

Grundsätzlich soll die Rekursion nur verwendet wer- 
den, wenn man tatsächlich an der Erzeugung lauter ver- 
schiedener, tief „gestapelter”, dynamischer (das heißt erst 
zur Laufzeit entstehender) Variablen interessiert ist. Im- 
mer, wenn offensichtlich mit einer „flachen“ Wiederho- 
lungsstruktur und einer im wesentlichen festen (stati- 
schen) Variablenausstattung ein Problem gelöst werden 
kann, sollte dieser Weg beschritten werden. 

‚Intern muß und kann das Pascal-System jeden rekursi- 
ven Programmablauf in irgendeine Form einer Wieder- 
holungsstruktur übersetzen. Wie auch mit großen ‚stati- 
schen Objekten umgegangen werden kann, ohne zu 
rekursiven Verfahren Zuflucht zu nehmen, behandelt das 
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folgende Kapitel. Die nähere Betrachtung dynamischer 
Datenstrukturen wie auch der Raffinessen rekursiver und 
verschachtelter Prozeduraufrufe übersteigt leider den 
Rahmen dieses Buchs. 


Aufgaben 


1. Zeichnen Sie das Syntaxdiagramm für die Deklara- 
tion von Funktionen. 

2. Führen Sie die im Text angedeutete Abwandlung von 
KartenSpiel aus. Zwei Personen sollen abwechselnd je ei- 
ne Karte ziehen, wer jeweils die höhere hat, darf beide 
behalten. Gewonnen hat, wer am Schluß die höchste 
Punktzahl auf der Hand hält. 

3.’Schreiben Sie eine universell verwendbare, modul- 
artige Prozedur, an die ein STRING-Parameter Wort und 
eine Anfangsposition für den Bildschirm übergeben 
wird. Die Prozedur soll dann das Wort - sofern es aus zu- 
lässigen Zeichen besteht und der Platz reicht - in groß ge- 
rasterten Figuren auf den Schirm schreiben (vergleiche 
Abb. 11-2). 

4. Schreiben Sie sich einen Prozedur-Baustein, der vom 
Anwender die erneute Eingabe eines Dateinamens (oder 
eine Abbruchbestätigung) so oft verlangt, wie die Datei- 
eröffnung noch nicht gelungen ist. Testen Sie seine Funk- 
tionstüchtigkeit aus. 

5. Das folgende Programm mit der rekursiven Proze- 
dur Zufallsschritt läßt ein Sternchen merkwürdige Wege 
auf dem Bildschirm vollführen (Abb. 13-9). Auf Knopf- 
druck (mit der Leertaste) wändert es sogar wieder exakt 
seinen Weg zurück und tanzt neu los (daran erkennen Sie, 
daß alle alten Orte gespeichert sind). 


PROGRAM Grosselrrf£fahrt; 
USES crt, printer; 
CONST 
Bildhoehe = 24; 
Verzoegerung = 100; 
PROCEDURE ProgrammErklaeren; 
BEGIN 
CirScr; 
WriteLn (’Dieses Programm läßt ein Sternchen wandern.’); 
WriteLn (’Mit der LEERTASTE können Sie zurückwandern.’); 
WriteLn (’Abbrechen mit CTRL (Strg) und BREAK (Pause)!’); 
END; 


‚ Prozeduren = © | 


PROCEDURE Zufallsschritt (Spalte, Zeile: Integer); 


VAR 
Zufallszahl : Integer; 
Zeichen : Char; 
BEGIN 
delay (Verzoegerung); 
Zeichen := 'x’; _ 
IF KeyPressed THEN Zeichen := Readkey) 


IF (Zeile < Bildhoehe) AND (Zeile > 5) 


{Oder: Read (kbd, Zeichen);)} 


(Zeichen <> ’ ') 2 
{Abbruch eines Weges, falls die Bildgrenzen 
erreicht sind oder Leertaste betätigt wird.} 


THEN 
BEGIN 


GoOToXY (Spalte, Zeile); 
Write (’*’); 
delay (Verzoegerung); 


Zufallszahl := Random (2); 
IF Zufallszahl = 1 
THEN 
BEGIN 


END; 
END; 
BEGIN 


END 
ELSE 
BEGIN 


{ zuerst nach. unten gehen: } 
zufallsschritt (Spalte + 1, Zeile + 1); 
{ zurückgehen auf alten Punkt: } 


 GoToXY (Spalte, Zeile); 


delay (Verzoegerung); 


.{ von hier jetzt nach oben gehen } 


zufallsschritt (Spalte + 1, Zeile - 1); 


{ zuerst nach oben gehen } i 


Zufallsschzritt (Spalte + 1, Zeile - 1); 
{ zurückgehen auf alten Punkt: } 
GOTOoXY (Spalte, zeile)-; 

delay (Verzoegerung); 

{ von hier jetzt ‘nach oben gehen } 
Zufallsschritt (Spalte + 1, Zeile + 1); 


END; 


ProgrammErklaeren; 


Randomize; 


Zufallsschritt (1, 15); 


END. 


AND (Spalte < 


80 ) AND 


14 RECORD, ARRAY 
und FILE 


Die Abbildung realer Objekte im Datenverbund - 
Die WITH-Anweisung - Speichern auf Textdateien - 
ARRAYs - Geschachtelte Datentypen - Variante 
Records - Die Datenstruktur FILE OF für den Direkt- 
zugriff - Sortieren - Weitere Beispiele - Aufgaben 


Wenn ein Programm sich mit „großen“ Objekten befaßt, 
müssen die Datenstrukturen die Komplexität widerspie- 
geln. Dieses Kapitel stellt die komplexen Datenstruktu- 
ren RECORD, ARRAY und FILE vor. 

Eine Sichtweise ist folgende: Das grundlegende Mittel, 
um in einem Pascal-Programm Bedeutungen auszu- 
drücken, besteht in der Vergabe von „sprechenden“ Na- 
men. Dies gilt für Variablen ebenso wie für Programme 
und Prozeduren. Und so wie eine Prozedurvereinbarung 
aus einer Kette einzelner Anweisungen ein strukturiertes 
Ganzes macht, so kann und soll nun auch der strukturier- 
te Zusammenhang von Einzeldaten in Pascal durch die 
Zusammenfassung zu größeren Einheiten ausdrücklich 
benannt werden. 


Die Abbildung realer Objekte 
im Datenverbund 


Zum Beispiel werden in einem Betrieb für die Lohnbuch- 
haltung die Daten der Angestellten verarbeitet. Zu Zwek- 
ken der Gehaltsabrechnung sind folgende Einzeldaten 
vorhanden: Name, Vorname, Personalnummer, Gehalts- 
gruppe, Geschlecht, Alter, Kinderzahl, Familienstand, 
monatliche Arbeitszeit, Krankheitstage, Fehlzeiten, An- 
schrift, Kontonummer, Lohnpfändungsvermerke ... 

Wenn ein Programm eine Gehaltsabrechnung für eine 
Person durchführt, benötigt es die Gesamtheit der ent- 
sprechenden Daten. Diese Gesamtheit repräsentiert 
gleichsam die jeweilige Person im Hinblick auf den gege- 
benen Zweck und bildet den eigentlichen Gegenstand 
des Programms. Damit die Objektstruktur im Pascal-Pro- 
gramm auch zum Ausdruck kommt, deklarieren Sie nicht 


| Abbildung realer Objekte 


Ein 
Datensatz-Typ 


RECORD, ARRAY und FILE | 


lauter isolierte Variablen Name; Vorname und so weiter: 
mittels eines RECORD-Typs fügen Sie die verschiedenen 
einzelnen Angaben zu einem Datenverbund oder Pie: 
satz (englisch Record) zusammen: 


TYPE 
TypPersonDatensatz = 

RECORD 
Name : STRING [30); 
Vorname : STRING [30]; 
' Personalnummer : Integer; 
"Gehaltsgruppe : STRING [5]; 
Geschlecht : (weiblich, maennlich); 
Alter : Integer; 
‚Rinderzahl : Integer; 
wochenArbeitszeit : Real; 
Kontonummer : STRING [20]; 
‚Steuerklasse : Char; 
Lohnpfaendung : Boolean; 
Anschrift : STRING[40]; 

END; | 


RECORD- Sie sehen, wie ein RECORD-Typ deklariert wird: Nach 

Deklaration ‘dem Typnamen und dem Gleichheitszeichen steht das 

Schlüsselwort RECORD, auf das eine Aufzählung der 

Komponenten, der Bestandteile des Datensatzes, folgt. 

Das ganze wird durch END (ähnlich wie die Falliste bei 

'CASE) abgeschlossen. Jede Komponente ist durch Anga- 

be ihrer Bezeichnung und ihres Typs festgelegt. Die Typ- 

.angabe.darf sowohl ein Typname-als auch eine Typbe- 

schreibung (eine implizite Typvereinbarung) .sein.- Um 

eine implizite Typvereinbarung handelt es sich im Bei- 

spiel sowohl bei den STRING-Typen wie auch bei (weib- 

lich, maennlich). Denn die Geschlechtsbezeichriung ist hier 

ein selbstdefinierter Aufzählungstyp. Die implizite Form 

wurde'nur der Kürze halber gewählt. Meist ist es’vorteil- 

hafter oder sogar unumgänglich, sich explizite Typen zu 
‚verschaffen, wie zum Beispiel: 


TypGeschlecht = (weiblich, maennlich); 


‚Bei STRING-Typen kann es sinnvoll sein, zuerst die 
Maximallängen als Konstanten zu vereinbafen: 


CONST 
Namenslaenge = 30; 
= 5; 


Gehaltsgruppenlaenge 
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Kontonummerlaenge = 20; 
Anschriftenlaenge = 40; 


In der Typbeschreibung werden dann die Konstanten- 
namen für die Werte eingesetzt. Werden Prozedurpara- 
meter benötigt, müssen Sie eventuell sogar für jede der 
verschiedenen STRING-Längen einen gesonderten Typ- 
namen definieren: 


TYPE 
TypNamenString 
TypGehaltsgruppenString 


k 2%) 


Schon an solchen allerersten Details zeigt sich, wie auf- 
wendig ein Programm werden kann, das sich mit kom- 
plexen Objekte befaßt. Die folgenden Beispiele haben da- 
her noch mehr als in den übrigen Kapiteln einen 
erläuternden und anregenden Charakter, als daß sie zur 
kompletten Ausführung empfohlen würden. 

Für die Komponentennamen kann man beliebige Pas- 
cal-Namen verwenden. Ausnahmsweise schadet es dies- 
mal nicht, wenn diese Namen an anderer Stelle noch eine 
andere Bedeutung haben. Die Komponente ist nichts 
Selbständiges, sondern erhält ihre Bedeutung aus dem 
Zusammenhang des Datensatzes. 

Die Deklaration einer Record-Variable sieht wie eine 
gewöhnliche Variablendeklarationen aus. Es ist ihr nicht 
anzumerken, daß hier jede Variable für einen ganzen Da- 
tensatz steht (und entsprechend umfangreicher Speicher- 
platz reserviert wird): 


VAR 
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STRING [Namenslaenge] ; 
STRING [Gehaltsgruppenlaenge] ; 


Komponentennamen 


Person, Personl, Person2 : TypPersondatensatz; 


Datensätze werden oft schematisch durch eine Recht- 
eckzeile dargestellt, in der einzelne Felder den Kompo- 
nenten entsprechen (Abb. 14-1): 

Für den Datensatz Person ist in das erste Feld der Name 
einzutragen, ins zweite Feld der Vorname und so fort. 

Entsprechend der Vorstellung einer Tabelle mit mehre- 
ren Spalten bzw. Rubriken heißen die Komponenten ei- 
nes Datensatzes (die Inhalte der Variablen) auch Daten- 
felder oder Datenelemente. Die Überschriften der 
Rubriken, das heißt die Komponenten des Datensatz- 
Typs, werden auch Attribute oder Datenfeldnamen ge- 
nannt. . 
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RECORD, ARRAY und FILE | 





| Nome ITT 5 Alter | T KtoNr | 


” h!..— 1. .r 





— . 
A 


-——l „m 0—— 


Abbildung 14-1: Schemaskizze des Datensatzaufbaus 
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Ansprechen der RECORD-Komponenten 


Mit den Komponenten eines RECORDs kann wie mit 
Einzelväriablen gearbeitet werden. Um eine bestimmte 
Komponente anzusprechen, ‚schreibt man.den Namen 
der RECORD-Variablen hin, gefolgt von einem Punkt 
und dem Komponentennamen. Zum Beispiel bedeutet 


Person2.Gehaltsgruppe 


die Gelhaltsgruppe im Datensatz Person2. Die nähere Be- 
stimmung, von welcher Gehaltsgruppe die Rede ist (näm- 
lich von der zu Person2 gehörigen) wird auch Qualifizie- 
rung genannt. Hierzu ein paar durch Kommentarzeilen 
abgetrennte Beispiele: 


WriteLlLn (Person.Name, ’ ist ’, Person.Alter, ’° Jahre. alt’ ); 
{==> - a. } 
IF Person.Lohnpfaendung THEN WriteLn (’Rücksprache nehmen’); 
Kerr re TEE } 
IF Personl.Alter > Person2.Alter 
THEN 
WriteLn (Personl.Name, ' ist ’, 


Personl.Alter - Person2.Alter, ’ Jahre älter als ’, 
Person2.Name) 
ELSE 
IF Personl.Alter = Person2.Alter 
THEN 
WriteLn (Personi.Name, ’ ist ebenso alt wie ’, 
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Person2.Name) 
ELSE 
WriteLln (Personl.Name, ’ 
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ist ’, 


Person2.Alter - Personl.Alter, ’ Jahre jünger ’, 
als Person2.Name); 


Person2.Gehaltsgruppe := 'IVa’; 


Da der Typ explizit angegeben wurde, können die Da- 
tensätze auch mit parametrischen Prozeduren bearbeitet 


werden. Zum Beispiel sei deklariert: 


PROCEDURE FreudigesEreignis (VAR Person: TypPersonDatensatz); 


BEGIN 
Person. Kinderzahl 
END; 


:= Person.Kinderzahl + 1; 


Bei einer Geburt im Haus Person1.Adresse kann dann auf- 


gerufen werden: 


FreudigesEreignis (Personl); 


Zwillinge von Person2 erfordern einen Doppelaufruf: 


FreudigesEreignis (Person2); FreudigesEreignis (Person2); 


Eine Eingabeanweisung bildet den Kern der folgenden 


Prozedur: 


'PROCEDURE Befoerderung (VAR Person: TypPersonDatensatz); 


BEGIN 
Write (’ Neue Gehaltsstufe von 
Write (Person.Name, ’, ', 
WriteLn; 
Write (’Personalnummer: 
Writeln; 
Write (’Bisherige Einstufung: 
Write (’ neue Stufe: ’); 


ReadLn (Person.Gehaltsgruppe); 
END; 


Die WITH-Anweisung 


Wie bei allen anderen Variablen ist zwischen RECORDs, 
sofern sie vom selben Typ sind, eine Wertzuweisung 
möglich: Der Befehl Person := Person] überträgt zum Bei- 
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Person.Vorname); 


', Person.Personalnummer) ; 


', Person.Gehaltsgruppe); 


Wertzuweisung 
zwischen 
RECORD-Variablen 


spiel in einem Zug sämtliche Datenfelder, die zu Person] 
gehören, auf Person. Dies ist klarer als die getrennte Wert- 
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zuweisung für jedes Datenfeld und ep darüber hin- 
aus etliche Schreibarbeit. 

WITH-Klausel Mit der sogenannten WITH-Anweisung läßt sich der 
Schreibaufwand weiter vermindern: Bei der von WITH 
abhängigen Anweisung werden alle Komponentenna- 
men automatisch mit der angesprochenen RECORD-Va- 
riable verbunden. Auf diese Weise können Sie die oben 
angeführte Entscheidungsstruktur verkürzen: 


WITH Personl DO 
IF Alter > Person2.Alter 


THEN 
WriteLn (Name, ’ ist r, Alter - Person2.Alter, 
'Jahre älter als ‘, Person2.Name) 
ELSE 


IF Alter = Person2 .Alter 
THEN WriteLn (Name, ' ist ebenso alt wie ’, Person2.Name) 
ELSE @ En 
WriteLn (Name, ’ ist ’, Person2.Alter - Alter, 
’ Jahre‘ jünger als ’, Person2.Name); 


Innerhalb der Reichweite der WITH-Klausel werden 
alle Komponentennamen, die unqualifiziert allein 'stehen, 
auf Personl bezogen. Bei diesem Verfahren muß genau 

“ darauf geachtet werden, ob es die Komponentennamen 
sonst noch als Variablennamen gibt - Alter oder Name 
dürfen hier nicht zugleich als selbständige Variablen vor- 
kommen. 

Wie üblich kann man durch einen BEGIN-END- Rah- 
men auch mehrere Anweisungen dem DO zuordnen’ und 
dadurch den Gültigkeitsbereich des WITH: vergrößern. 
Eine Prozedur, die den Datensatz einer Person in der ein- 
fachsten Form auf dem Bildschirm ausgibt, könnte mit ei- 
ner solchen WITH-Anweisung soaussehen: 


PROCEDURE Datenauszug (Person : TypPersondatensatz); 

BEGIN | 
Writeln ("zeo==2=2=2=S-s=s=rcoasssssssszzessässseessanäeessaseer==t); 
WITH Person DO 

BEGIN 
WriteLn (’Name des/der. Beschäftigten: ':30, Name); -' 
WriteLn (’Vorname, Namenszusätze: ’:30, Vorname); 
WriteLn (’Personalnummer: ’:30, Persconalnummer); 
WriteLn (’Gehaltsgruppe: ’:30, Gehaltsgruppe); 


ai 


IF Geschlecht = weiblich 


THEN WriteLln (’Geschlecht: '’:30, ’w’ 
ELSE WriteLln (’Geschlecht: ‘:30, '’m’ 
{Und so weiter) 
END; 
WritelLn (’====2=2=2====2=2=2=2=22=2=2=2=52=2=2=2=2=2222==r 


END (* von Datenauszug *); 


Speichern in Textdateien 


Um die Beispiele zum TypPersondatensatz praktisch auszu- 
probieren, schreiben Sie sich zunächst eine Prozedur Erfas- 
sung. Damit Sie nicht bei jedem Programmlauf alle Daten 
neu eintippen müssen, speichern Sie die Daten in Textdatei- 
en ab und lesen Sie sie bei Bedarf von dort wieder ein. So 
wie in der Prozedur Datenauszug die einzelnen Angaben zu 
jeder Person auf den Bildschirm geschrieben werden, kön- 
nen sie auch in eine Textdatei auf Diskette geschickt werden. 
Zu beachten sind eventuelle Unterschiede beim Öffnen und 
Schließen von Dateien, falls ein anderer Pascal-Dialekt als 
Turbo-Pascal benutzt wird (es sei Normalstring wieder als 
STRING [80] vereinbart): 


PROCEDURE Speichern 
(Person : TypPersondatensatz; 
Dateiname : Normalstring); 


VAR 
Datei : Text; 


BEGIN 
Assign (Datei, Dateiname); 
Rewrite (Datei); 
WITH Person DO 
BEGIN 
WriteLn (Datei, Name); 
Writeln (Datei, Vorname); 
WriteLln (Datei, Personalnummer); 
WriteLn (Datei, Gehaltsgruppe); 
IF Geschlecht = weiblich 
THEN 
WriteLn (Datei, ’w’) 
ELSE 
WriteLln (Datei, ’m’); 
{Und so weiter} 
END; | 
Close (Datei); 
END (* von Speichern *); 
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Die Daten werden zeilenweise in der Datei abgelegt. 
Nach einer Dateieröffnung mit Reset erhalten Sie sie mit 
ReadLn-Anweisungen zurück. 


Das Beispiel für den Bücherfreund 


Ein anderes Beispiel: Vielleicht stapeln sich bei Ihnen die 
gelesenen und ungelesenen Bücher, und Sie hegen die 
Hoffnung, mittels EDV die Übersicht zurückzugewin- 
nen. Bei.aller Mühsal des späteren Programmierens und 
auch der Programmnutzung liegt die schwierigste, ver- 

“0 antwortungsträchtigste und folgenreichste Aufgabe am 
Anfang der Arbeit. Zuallererst müssen Sie sich überlegen, 
welche. Daten benötigt werden, damit das Programm ir- 
gendwann Auskünfte auf Sie interessierende Fragen pa- 
rat halten kann: Gesucht wird ein Modell für Bücher, das, 
mit spärlichen Angaben ausgerüstet, in der Mikrowelt 
des Computers die Originale vertreten muß. Die Typver- 
einbarung kann beispielsweise so aussehen: 


TYPE 
TypKategorie = (Sachbuch, Belletristik, Lexikon); 
TypBuch = 
RECORD 
AutorIn * STRING {50); 
Titel : STRING [60]; 
Untertitel : STRING [60]; 
Verlag : STRING (30]; 
Erscheinungsort : STRING [30); 
Erscheinungsjahr : STRING [4]; 
JahrErstveroeffentlichung : STRING [4]; 
Schlagworte : STRING [240]; 
Gelesen : Boolean; 
Kategorie : TypKategorie; 
END; 


Erwägungen zum’ Nureinen kleinen Ausschnitt beispielhafter Daten gibt 
Datenmodell die Tabelle in Bild 14-4 wieder. Vielleicht sollen die Bü- 
cher je nach Größe auf Borde mit verschiedenen Abstän- 
den gestellt werden? Wenn das DV-System Sie über die 
Möglichkeiten hierfür informieren soll, benötigen Sie zu- 

sätzlich die Komponente: 


Hoehe : Real; {Buchrücken in cm} 


Möchten Sie auch ausrechnen lassen, wieviel Meter Re- 
gal Sie noch errichten müssen? Mit folgender Datenart 
kann der Computer das leicht erledigen: 
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Breite : Real; {Buchrücken in cm} 


Um für Buchempfehlungen auch die Preise berücksich- 
tigen zu können, benötigen Sie die Attribute: 


Preis : Real; 
PreisDatum : STRING [8]; 
{Wann der Preis galt.)} 


Gerade bei Computerliteratur ist aus dem Titel nicht 
unbedingt ersichtlich, in welcher Sprache das Buch ge- 
schrieben ist. Ein weiterer Hınweis kann davor schützen, 
sich mit einem Text in einer nicht beherrschten Fremd- 
sprache zu plagen: 


Sprache : STRING [10]; 


Das von Ihnen gewählte Datenmodell bestimmt, über 
welche Daten Sie verfügen und welche Informationen Sie 
der entsprechenden Datenbank entnehmen können. 
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Die Prozeduren zum Aufnehmen, Wiedergeben, 
Speichern und Lesen der Buch-Daten gleichen im Aufbau 
den entsprechenden Funktionen für eine Personaldaten- 
verwaltung. Standardprozeduren wie die genannten: 
müssen im Grunde bloß einmal entworfen und für die je- 
weilige Anwendung nur durch Einsetzen der entspre- 
chenden Texte und’ Komponentennamen angepaßt wer- 
den. 

Die Sprachen In der DV-Entwicklung werden heute oft Programm- 
der 4. Generation generatoren oder Programmiersprachen der 4. Genera- 
tion verwendet. Ein wesentlicher Bestandteil solcher Pro- 
grammiersysteme sind fertige Standardprozeduren für 
die komfortable Ein- und Ausgabe von Datensätzen. Um 
jedoch auf die Anwendungssituation zugeschnittene Dia- 
loge zu entwerfen und Masken und Menüs genau auf den 
Punkt zu bringen, ist es oft besser, anstelle von vorfabri- 
zierten doch eigene in Pascal oder einer. anderen Pro- 
grammiersprache der 3. Generation geschriebene Proze- 

duren einzusetzen. 

Bis jetzt war nur von einem beziehungsweise einzelnen 
Objekten vom TypBuch die Rede. Wie ist das ganze Buech- 
erRegal oder wie wäre eine komplette Personalliste in ei- 
nem Programm unterzubringen und anzusprechen? 


’ 


ARRAYs 


Wenn eine Gruppe gleichartiger Daten gemeinsam die 
Grundlage für einen Verarbeitungsvorgang bilden soll 
(etwa um eine alphabetisch sortierte Liste zu erstellen 
oder rasch nach einem Begriff zu suchen), müssen die Da- 
ten parallel im internen Speicher gehalten werden. Aus 
vielen identisch aufgebauten Einzelgrößen kann für die- 
sen Zweck mittels Reihung eine Super-Variable, ein AR- 
RAY, gebildet werden. Während die Datenstrukturierung 
beim RECORD mehrere unterschiedliche Attribute unter 
einen Hut bringt, fügt das ARRAY (oder die „Reihe”) eine 
Vielzahl gleichartiger Komponenten zu einer Einheit zu- 
sammen. u —. 
Beispiel Im Beispiel von oben würde die Variable für ein AR- 
RAY, bestehend aus zum Beispiel maximal 50 Einzelper- 
sonen, so deklariert werden: 
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VAR 


Personalliste : ARRAY [1..50)] OF TypPersonDatensatz; 


In dieser Form handelt es sich um die implizite Verein- 
barung eines ARRAY-Typs. TypPersondatensatz spielt hier 
die Rolle des Komponententyps des ARRAYSs. Die Anga- 
be 1..50 in eckigen Klammern besagt, daß 50 Datensätze 
angelegt werden, die mit den ganzen Zahlen von 1 bis 50 
durchnumeriert sind. 

Statt von Numerierung wird in Pascal allgemeiner von 
einer Indizierung durch den Index beziehungsweise den 
Indextyp gesprochen. 1..50 kann nämlich formal als Teil- 
bereichstyp von Integer aufgefaßt werden. Der Indextyp 
wird in eckigen Klammern geschrieben wie schon die 
SETs. Der Zusammenhang läßt aber keine Verwechslung 
zu. Als Indextyp istjeder Aufzählungstyp oder ein Teilbe- 
reich zugelassen. 

Praktisch erhalten Sie eine Reihe von 50 gleichartigen 
Variablen, die mit ihrer Nummer (beziehungsweise ih- 
rem sonstigen Index) zu identifizieren sind. Um eine be- 
stimmte davon anzusprechen, schreiben Sie einfach die 
Nummer in eckigen Klammern zum Variablennamen 
hinzu. Etwa 


Personalliste (6] 


bedeutet nicht eine sechste Liste, sondern bezeichnet die 
Position Nr. 6 auf der Liste, das heißt die Daten der sechs- 
ten Person. 

Selbstverständlich ist auch eine explizite Typvereinba- 
rung mit anschließender Variablendeklaration möglich: 


Index 


Ansprechen der 
ARRAY-Komponente 


Explizite Deklaration 


TYPE 

TypPersonalliste : ARRAY [1..50] OF TypPersonDatensatz; 
VAR 

Personalliste : TypPersonalliste; 


In charakteristischer und außerordentlich praktischer 
Form können häufig die Daten eines ARRAYs mit einer 


FOR-Schleife abgearbeitet werden. FOR-Schleifen sind ja - 


dazu bestimmt, die Zahlen oder andere geordnete Werte- 
folgen zu durchlaufen. Zum Beispiel kann die oben ange- 
führte Prozedur Datenauszug mit einer schlichten Anwei- 
sung die ganze Personalliste auf dem Bildschirm 
ausgeben (1 sei als Integer deklariert): 

Er a 


FOR i := 1 TO 50 DO 
Datenauszug (Personalliste [i]); 


Abarbeiten mit 
der FOR-Schleife 
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Ganz ähnlich wurde bereits mit STRINGs gearbeitet. 
Intern sind STRINGs beinahe ARRAYs mit dem Kompo- 
nententyp Char, nur daß Sie zusätzlich eine Längenanga- 
be enthalten. 


Computerisierung für das BuecherRegal 


Auch für den Bücherfreund von oben soll nun eine Da- 
tenstruktur mit ARRAY aufgebaut werden. Damit die 
Fassungsgrenze der Regale nach oben mühelos erweitert 
werden kann, sei die obere Indexgrenze als Konstante 
vereinbart: 


CONST 
R {apazitaet} = 100; 
TYPE 
TypKategorie = (Sachbuch, Belletristik, 
Lexikon); 
TypBuch =. 
RECORD 
} 
END; 
TypBuecherRegal = ARRAY [1..K] OF 
TypBuch; 
VAR 
BuecherRegal : TypBuecherRegal; 


Die komplette Struktur für eine umfangreiche Tabelle 
ist nun fertig — die Felder müssen nur noch mit den Daten 
gefüllt werden. 

Sind die Daten im ARRAY, ist es nicht schwer, sie in 
eine lextdatei zu übertragen beziehungsweise wieder 
aus dieser zu holen. Zum Beispiel speichert die folgende 
Prozedur die ersten (von 1 bis. AnzahılSaetze) Komponen- 
ten des ARRAYSs auf die Datei ’BIBLIOT.HEK‘. . 
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Abbildung 14-5: Tabelle 


PROCEDURE Notiere (AnzahiSaetze: Integer); 


VAR 

Datei : Text; 

i : Integer; 
BEGIN 


Assign (Datei, ’BIBLIOT.HERK’); 
ReWwrite (Datei); 
FOR i := 1 TO AnzahlSaetze DO 
Speichern (Datei, BuecherRegal [i}); 
Close (Datei); 
END; 


Dabei sei angenommen, daß zuvor folgende Prozedur 
Speichern mit Datei als Variablenparameter und einem 
Werteparameter vom IypBuch deklariert wurde: 


PROCEDURE Speichern (VAR Datei: Text; Buch: TypBuch); 
BEGIN : 
WITH Buch DO 
BEGIN 
WriteLn (Datei, Autorin); 
WriteLn (Datei, Titel); 
{ und so weiter } 
END; 
END; 


Für den Komponententyp bei einem ARRAY gibt es Der Abstieg zu den 
ebensowenig Einschränkungen wie für den eines RE- elementaren Werten 
CORDs. Aus jedem elementaren, aber auch aus jedem 
schon in sich strukturierten Datentyp darf eine Reihe ge- 
bildet werden. In allen bisherigen Beispielen war das Rei- 
henelement bereits selbst ein RECORD. Machen Sie sich 
klar, in welchen Stufen Sie bei solchen geschachtelten 
Konstruktionen an die einfachen Werte herankommen: 


BuecherRegal [11] 


stellt ein Objekt vom TypBuch dar und enthält alle Anga- 
ben zum elften Buch im Regal. Für den AutorIn-Namen, 
den Titel oder das Erscheinungsjahr muß auf die betreffen- 
den RECORD-Komponenten zugegriffen werden: 


BuecherRegal [11]. AutorIn 
BuecherfRegal [11]. Titel 
BuecherRegal [11]. Erscheinungsjahr 


Je länger die RECORD-Bezeichnung wird, desto mehr 
kann sich der Gebrauch eines WITH lohnen. Allerdings 


kommt es gar so nicht häufig vor,-daß die Datenstrüktur 
ganz durchbuchstabiert werden muß. Meistens können 
komplette Teilstrukturen (wie zuletzt TypBuch in der Pro- 
zedur Speichern) durch einen Prozedurparameter abge- 
deckt werden. 


Geschachtelte Datentypen 


Das Datenbild Natürlich gibt es auch ganz schlichte ARRAYS, die nichts 
einer Kurve als eine Reihe einfacher Zahlengrößen aufnehmen. Für 
Zwecke einer Analyse internationaler Wirtschaftsbezie- 
hungen interessieren Sie sich vielleicht für den Verlauf 
der Fieberkurve des Dollarkurses. Eine Datenstruktur, 
zur Aufnahme der Werte eines bestimmten Zeitraums, 

kann wie folgt aufgebaut werden: 


CONST 
Zeitspanne = 37; {Tage} 
TYPE 
TypKursreihe = ARRAY [1..Zeitspanne] 
OF Real; 
VAR 
Dollarkurve : Typkursreihe; ' 


Eine Prozedur zum Zeichnen der Kurve kann (wenn die 
Daten schon vorhanden sind) problemlos geschrieben 
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werden. Um Kurve und Koordinatenkreuz auf dem Bild- 
schirm zu plazieren, werden zuvor globale Konstanten 
benötigt: 


CONST 
KoordinatenAnfangszeile = 24; 
KoordinatenAnfangsspalte = 5; 


n 
je 
oO 
u} 


Vergroesserungsfaktor 


PROCEDURE Zeichnen (Kurve: TypKursreihe); 
VAR 


Wert : Real; 
HoeheAufSchirm : Integer: 
Tag : Integer; 
BEGIN 
FOR Tag := 1 TO Zeitspanne DO 
BEGIN 


HoeheAufSchirm := round (Vergroesserungsfaktor 


* Kurve [(Tag]); 
GoToXY (Tag + KoordinatenAnfangsspalte, 


KoordinatenAnfangszeile - HoeheAufSchirm); 


Write (’*’); 
END; 
END; 


Diese Lösung weist noch einen erheblichen Schönheits- 
fehler auf: Im Programm muß, wenn die Daten sich erst 
im Laufe der Zeit ansammeln, täglich die Konstante Zeit- 
spanne geändert werden. Eigentlich sollten die ARRAY- 
Grenzen von vorneherein so gewählt werden, daß Daten 
von einem größeren Zeitraum, etwa einem Jahr, als Maxi- 
maleZeitspanne, aufgenommen werden können. Man muß 
sich dann allerdings getrennt merken, wie viele Werte 
schon vorhanden sind (bis zu welchem Tag die Kurve zu 
zeichnen ist). Dafür könnte eine isolierte Variable „Zeit- 
spanne, der schon durchgeführten Beobachtung” defi- 
niert werden. Weit eleganter ist es allerdings, wenn zur 
Beschreibung einer Kurve nicht nur die Werte, sondern 
auch die Zeitspanne, für die Werte vorliegen, als zugehö- 
rig erkannt wird. In Pascal gesprochen: Kurve sollte als 
ein RECORD mit zwei Komponenten - einem ARRAY OF 
Real und einer Integer-Größe Zeitspanne - aufgefaßt wer- 
den. Die Datenstruktur sieht dann so aus: 


Mehr als 
ein einfaches 
ARRAY 
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CONST 
MaximaleZeitspanne = 365; 
{Tage} 
TYPE 
TypKursreihe = ARRAY [1..MaximaleZeitspanne] OF Real; 
TypKurve = | 
RECORD 
Zeitspanne : Integer; 
Kursreihe : TypKursreihe; 
END; 
VAR 
Dollarkurve : TypKurve; 


Teilbereichstypen 
verwenden? 


Die Prozedur muß nur geringfügig abgeändert wer- 
den. Bevor die notwendige Modifikation gezeigt wird, 
soll auf ein Problem mit den Typangaben eingegangen 
werden, das vor allem bei RECORD-Komponenten inter- 
essant wird: 

In der Pascal-Literatur findet sich oft die Empfehlung, 
in einer RECORD-Vereinbarung bei Integer- oder Char- 
Komponenten als Typ jeweils. einen genau passenden 
Teilbereich von Integer beziehungsweise Char zu neh- 


. men (ähnlich wie bei STRINGs die jeweilige Maximallän- 


ge genannt wird). Weil zum Beispiel Zeitspanne höchstens 
gleich MaximaleZeitspanne sein darf, könnte deklariert 
werden: 


.TypKurve = 


RECORD 
Zeitspanne : 1. .MaximaleZeitspanne; 
Kursreihe : TypKursreihe; 
END; 


‘Dann würde das Pascal-System bei entsprechender 
Voreinstellung dafür sorgen, daß kein unzulässiger Wert 
an die Variable zugewiesen wird. Aber wie schon in Ka- 
pitel 12 begründet, söllte lieber mit eigenen Prozeduren 
wie zum Beispiel Eingabekontrollen verhindert werden, 
daß Variablen den ihnen zustehenden Bereich überschrei- 
ten: Zu den geschilderten Unzulänglichkeiten der Pascal- 
Typenkontrolle für Zwecke-der Bereichsprüfung kommt 
hinzu, daß bei jeder Prozedur die Parameter strikt typge- 
bunden sind. Würde mit Teilbereichstypen gearbeitet, 
müßten zum Beispiel für jeden Teilbereich von Integer ei- 
gene Kontroll-, Bearbeitungs- und. a a 
definiert werden. 


| Geschachtelte Datentypen 


Es kann allerdings sinnvoll sein, für Variablen dessel- 
ben formalen Typs, deren Werte aber ganz unterschiedli- 
che Größen repräsentieren, die Typnamen zu trennen. So 
könnte definiert werden: 


TypZeitachse 
TypBildschirmkoordinaten 


Integer; 
Integer; 


Nun kann Zeitspanne als vom TypZeitachse, dagegen Hoe- 
heAufSchirm als vom TypBildschirmkoordinaten ausgewie- 
sen werden. 

Zum neuen Modell für die Kurve: Was in der ursprüng- Die neue Prozedur 
lichen Datenstruktur Kurve [Tag] hieß, muß nach der Er- Zeichnen 
weiterung jetzt mit Kurve.Kursreihe [Tag] angesprochen 
werden. Ebenso ist Zeitspanne zu qualifizieren. Die Proze- 
dur hat dann folgende Gestalt: 


PROCEDURE Zeichnen (Kurve: TypKursreihe); 


VAR 
Wert : Real; 
HoeheAufSchirm : Integer: 
Tag ı Integer; 
BEGIN 
FOR Tag := 1 TO Kurve.Zeitspanne DO 
BEGIN 
HoeheAufSchirm := round ( Vergroesserungsfaktor * 
Kurve .Kursreihe [Tag] ); 
GoToXY (Tag + Koordinatenänfangsspalte, 
KoordinatenAnfangszeile - HoeheAufSchirm); 
Write (’*’); 
END; 
END; 


Die Überlegungen bezüglich des Modells für eine Kur- 
ve sind auf die anderen Beispiele zu übertragen, auch 
wenn die Datenstrukturen dabei immer weiter wachsen. 


Tief geschachtelte Datentypen 


Wie schon erwähnt, können ARRAYs wie RECORDS in 
Pascal praktisch Komponenten jedes Typs besitzen. Das 
eröffnet die sehr sinnvolle Möglichkeit, Datentypen in 
mehreren Stufen zu schachteln. Man bildet RECORDs 
von ARRAYs, deren Elemente wiederum RECORDs von 
allem möglichem sein können (dabei gilt es, die Übersicht 
zu behalten). u 
Hierzu noch einmal das Beispiel des Bücherfreundes: 
Beim BuecherRegal sollte zwischen maximaler Aufnahme- 
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kapazität und aktueller Belegungszahl unterschieden 
werden. Die verbesserte Datenstruktur lautet: 


CONST 
Kapazitaet = 100; 
TYPE 
TypKategorie = (Sachbuch, Belletristik, Lexikon); 
TypBuch = 
RECORD 
% } 
END; 
TypBuecherRegal = ARRAY [l..Rapazitaet] OF TypBuch; 
TypBibliothek = | | 
RECORD 
BuecherRegal : TypBuecherRegal; 
Belegungszahl : Integer; 
END; 
VAR 
Bibliothek : TypBibliothek; 


Wer schrieb laut dieser Datenstruktur das letzte ins Re- 
gal aufgenommene Buch? Es kann niemand anders sein 
als: 


Bibliothek . BuecherRegal [Belegungszahl] . AutorIn 


Buch 


Jackson- 
‚ Diagramme 


Das durchaus-ernsthafte Spiel läßt sich 'noch weiter 
treiben. Eine Bibliothek umfaßt meist eine ganze. Reihe von 
BuecherRegalen, beziehungsweise sie ist nach Sachgebie- 
ten gegliedert. Versuchen Sie.doch einmal, 'eine Daten- 
struktur für. .diese Situation aufzustellen. Spätestens, 
wenn die .Bildschirmzeile nicht mehr reicht, um die Kom- 


ponenten anzusprechen, können Sie auch Wertzuweisun- 


gen zwischenschalten. Mit einer Hilf$variable Buch vom 
Buchtyp ‘hätte nach Ausführung von: 


= Bibliöthek. BuecherRegal '[Belegungszahl] ; 


‚die gewünschte Auskunft auch auf: 


Buch. AutorIn 


gestanden. 

Die.Datenstrukturierung läßt sich in ähnlicher Form in 
hierarchisch übereinander angeordneten: Kästchen .dar- 
stellen wie die Prozeduren im N der 
Top-down-Programmierung.  - 

..Das Diagramm deutet an, daß Bibliothek durch zwei 
nennen bestimmt ist, von denen Buecherregal 'sei- 


mr —m scene na  —— nam dd N — — 


Bibliothek 


Abbildung 14-7: Ein Datenstruktur-Diagranm 


nerseits aus vielen Exemplaren Buch besteht. Das Stern- 
chen rechts oben im Kästchen signalisiert ein mögliches 
mehrfaches Vorkommen der entsprechenden Einheit. Die 
Komponenten eines jeden Buch-Exemplars nehmen die 
unterste Ebene ein. Ein derartiges Datenstruktur-Dia- 
gramm kann (beziehungsweise muß bei der sogenannten 
Programmiermethodik nach Jackson) 'als direkte Anlei- 
tung zum Top-down-Entwurf des zugehörigen Pro- 
gramms dienen: Insgesamt ist ein Programm zu schrei- 
ben, das sich mit der Bibliothek befaßt. Die Vielzahl der 
Buch-Exemplare spiegelt sich im Programm in einer Wie- 
derholungsstruktur, welche in ihrem Innern jeweils ein 
Buch behandelt. Die Prozedur für das Buch untergliedert 
sich ihrerseits in Unterprozeduren für die einzelnen Da- 
tenfelder von AutorIn bis Gelesen, die eine nach der ande- 
ren in einer Programmsequenz aufgerufen werden. 


Variante RECORDs 


Die dritte der grundlegenden Programmstrukturen - die 
Entscheidungsstruktur - käme zum Zug, wenn je nach 
Kategorie des Buchs unterschiedliche Datenfelder. erfor- 
derlich wären. Die entsprechende Pascal-Datenstruktur 
ist der variante Record, für den hier nur ein kurzes Bei- 
spiel stehen soll: 
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Belegungszohl BuecherRegal 


„ 


Buch 


| 
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TypBuch = 
RECORD 
AutorIn : STRING [50]; 
Titel : STRING [60]; 
La} 
Gelesen : Boolean; 
CASE Rategorie : TypKategorie OF 
Sachbuch : (Fachgebiet : STRING [30]; 
Zielgruppe : STRING [20]); 
Belletristik : (Genre : STRING [40]; 
Vorbilder : STRING {150]); 
Lexikon : (Niveau : STRING [(20)); 


Speicherbedarf 
der Daten 


| 


Oö 
Sachbuch 


— — mh 0 rer ehesten ee 





Fachgebiet Zielgruppe Vorbilder 


._— mn. —ı 2-11 22 un  .— rum: 


Es werden am Schluß der RECORD-Definition in ei- 
nem CASE-Abschnitt mehrere Fälle aufgelistet. Je nach 
Wert des Etikettenfelds Kategorie sind unterschiedliche 
Teil-Datensätze zu aktivieren (im Gesamt-Datensatz wird 
Raum für die längste der verschiedenen Versionen freige- 
halten). Nach der folgenden Zuweisung (wobei Buch vöm 
TypBuch ist) kann mit den Komponenten Buch.Genre oder 
Buch.Vorbilder gearbeitet werden: 


Buch ‚Kategorie := Belletristik; 


Falls Buch.Kategorie gleich Sachbuch ist, gelten dagegen 
die Komponenten Buch.Fachgebiet und Buch.Zielgruppe, 
wenn das Etikett Lexikon enthält, ist Buüch.Niveau aktiv. Im 
Jackson-Diagramm erscheinen alternative Komponenten 
mit einem Kringel rechts oben im Kästchen (Abb. 14-8). 
Bei großen ARRAYs stößt man leicht an die Grenzen 
des Speichers des Computers beziehungsweise an die 


ee ol. 
Belletristik Lexikon 
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Abbildung 14-8: Dalenekir Diesiainm mit variantem RECORD 
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Grenzen des für statische Variablen zugänglichen Spei- 
cherabschnitts (in Turbo-Pascal je Variable maximal 64 
kByte). Es lohnt sich daher, beim Definieren von umfang- 
reichen ARRAYs mit großen Komponenten von Zeit zu 
Zeit deren Speicherbedarf zu überschlagen. Schon in der 
ersten, noch nicht erweiterten Form wird je Datensatz 
vom TypBuch zirka ein halbes KByte Speicher benötigt. 
Ein ARRAY, das die Daten von 500 Bänden aufnehmen 
soll, würde 250 KByte in Beschlag nehmen. Wenn die Da- 
tenbestände derartig umfangreich werden, können sie 
portionsweise in eine oder mehreren Dateien ausgelagert 
werden. 


Die Datenstruktur FILE OF 
für den Direktzugriff auf Datensätze 


Die oben geschilderte Möglichkeit, Daten aus RECORDs 
in Textdateien zu schreiben, hat den Vorteil, daß sie bei 
allen Pascal-Dialekten ganz ähnlich funktioniert. Außer- 
dem werden die Daten zeichenweise im ASCII-Format 
notiert, so daß zahlreiche andere Programme darauf zu- 
greifen können. Beliebige Dateneinheiten können aber in 
Pascal auch (in einem von der jeweiligen Pascal-Imple- 
mentation abhängigen Format) geblockt in einer Datei, 
einem FILE, gespeichert werden. Eine allgemeine Datei 
besteht in Pascal aus einer theoretisch unbeschränkten, 
praktisch nur durch die Kapazität des Mediums begrenz- 
ten Zahl von Datenobjekten desselben Typs. Die Struktur 
des FILE ähnelt der des ARRAY, nur daß letzterer eine fe- 
ste Anzahl von Objekten eines Typs umfaßt und im inter- 
nen Speicher steckt, während das FILE extern bleibt. 

Zum Beispiel kann der Bücherfreund sich folgende Da- 
teistruktur zulegen: 


TYPE 
TypRategorie = (Sachbuch, Belletristik, 
TypBuch = 
RECORD 
 , 
END; 


TypBuecherDatei = FILE OF TypBuch; 


VAR 
BuecherDatei : TypBuecherDatei; 


| Geschachtelte Datentypen 


Deklaration 


Lexikon); 
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Arbeiten mit 
strukturierten 
Dateien 


‚schrieben beziehungsweise herausgelesen: 


In der Typbeschreibung steht hinter FILE OF die Anga- 
be des Komponententyps der Datei (in diesem Fall Typ- 
Buch). Diese Deklarationen schließen nicht aus, daß zu- 
sätzlich Objekte vom TypBuecherRegal beziehungsweise 
TypBibliothek vereinbart-werden, um eine.gewisse Anzahl 
von Buchdatensätzen zum schnellen Zugriff im internen 
Speicher zu halten. 

Das Schreiben und Lesen auch von beliebig Srolen Da- 
tenobjekten in strukturierte Dateien gestaltet sich sehr 
leicht. Genau wie eine Textdatei, müssen auch andere FI- 
LEs zunächst eröffnet werden. Im folgenden sei zugrun- 
degelegt, daß auf der String-Variablen Dateiname der nach 
den Regeln des Betriebssystems gebildete Name einer 
Datei steht. Falls die Datei existiert, wird sie in Turbo-Pas- 
cal eröffnet mit 


Assign (BuecherDatei, Dateiname); 
Reset (BuecherDatei); 


Die Neuanlage der Datei erfolgt mit-den Anweisungen 


Assign (BuecherDatei, Dateiname); 
ReWrite (BuecherDatei); 


_ Um jeweils ein komplettes Glied des FILEs vom Spei- 
chermedium in eine Variable Buch vom TypBuch einzule- 
sen beziehungsweise von der Variablen auf die Datei zu 
übertragen, wird es in Turbo-Pascal einfach hineinge- 


Write (BuecherDatei, Buch); 
Read : (BuecherDatei, Buch); 


In Standard-Pascal dürfen Write und Read nur bei Text- 
dateien angewendet werden. Für allgemeine Dateien 
sind sogenannte Get- beziehungsweise Put-Operationen 
definiert, die ein Schreib-/Lesefenster (analog zum phy- 
sikalischen Schreib/Lesekopf) in der Datei verschieben. 
Am Ende der Arbeit muß die Datei wieder geschlossen 
werden: 


Close (Buecherdatei); 


Ebenso wie bei Textdateien kann mit eof (Buecherdatei) 
abgefragt werden, wann alle Datensätze durchlaufen 
sind. Falls man es für sinnvoll erachtet, kann man anstelle 
der Buecherdatei auch’eine BuecherRegalDatei oder eine Bi- 
bliothekenDatei anlegen. 


TYPE 


TypBibliothekenDatei = FILE OF TypBibliothek; 
VAR . 
BibliothekenDatei : TypBibliothekenDatei; 


Bei dieser Deklaration schreiben Sie nachher mit einer 
einzigen Lese- beziehungsweise Schreibanweisung eine 
ganze Bibliothek zwischen Diskette und internem Spei- 
cher hin- und her. 

Eine strukturierte Datei erspart das Schreiben von eige- 
nen kleinen Prozeduren für die Ein- und Ausgabe von 
Datensätzen. Interessant wird diese Speicherungsform 
aber vor allem durch ihre Eigenschaft, aus lauter gleichar- 
tigen Komponenten zu bestehen. Aufgrund der festen 
Größe der Komponenten ist es im Prinzip möglich, daß 
Pascal-System und Betriebssystem ermitteln, an weichem 
Platz im Speicher die soundsovielte Komponente stehen 
muß. Sofern der verwendete externe Speicher (wie bei 
Disketten und Platten der Fall) das gezielte Anspringen 
bestimmter Stellen zuläßt (Direktzugriff), kann ein be- 
stimmtes Dateiglied direkt angesprochen werden. Ohne 
erst sämtliche vorherigen Daten abzusuchen, können ge- 
zielt Feldinhalte gelesen und verändert werden. Alle Pas- 
cal-Dialekte für Mikrocomputer sehen solche Möglich- 
keiten vor; das ursprünglich für Großrechner alten Stils 
mit Magnetbandgeräten als Speichereinheiten gedachte 
Standard-Pascal allerdings nicht. In Turbo-Pascal läßt 
sich der direkte Zugriff auf eine bestimmte Dateikompo- 
nente mit der Seek-Anweisung („suche“) zustande brin- 
gen. Zum Beispiel setzt die folgende Anweisung den Da- 
teizeiger auf das siebte Glied der Datei (die 
Komponenten werden mit 0 beginnend gezählt): 


Seek (BuecherDatei, 6) 


Eine folgende Lese- oder Schreiboperation bezieht sich 
dann auf die zuvor mit Seek angesteuerte Komponente. 

Auf eine Spezialaufgabe der Dateiverwaltung sei noch 
kurz eingegangen: das Sortieren von Daten in alphabeti- 
scher (beziehungsweise alphanumerischer) oder einer 
anderen Reihenfolge. 


Sortieren 


Ein Sortierverfahren für den Computer wird auch ein 
Sortieralgorithmus genannt. Der traditionsreiche Begriff 


Möglichkeit 
des Direktzugriffs 


Suchen 
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des Algorithmus (nach dem latinisierten Namen des per- 
sischen Rechenbuchautors Al-Chwarizmi aus dem 8. 
Jahrhundert) ist der Mathematik entlehnt und bezeichnet 
jedes mechanisch nach genauen Regeln ausführbare Lö- 
sungsverfahren für eine bestimmte Klasse von Aufgaben. 
Vorgestellt wird eines der einfachsten, aber für kleine Da- 
tenumfänge durchaus effektives Sortierverfahren. 

Der Grundgedanke beim Sortieren durch direkte Aus- 
wahl lautet, daß zunächst das ganz zuvorderst gehörende 
(je nach Sortierung das kleinste, größte oder alphabetisch 
erste.usw.) Datenelement gesucht und an den Anfang der 
Reihe’plaziert wird. Der neue Kopf der Reihe ist damit 
schon fertig, auf den Reihenrest wird das Verfahren er- 
neut angewendet. Das dort zuvorderst gehörende Ele- 
ment wird gesucht, gefunden und auf den vorderen Platz 
umgesetzt. Eine Prozedur, welche die Datenreihe inner- 
halb der Datenstruktur vom TypBibliothek alphabetisch 
nach dem Datenfeld Autorin ordnet, könnte etwa wie 
nachfolgend aussehen. Vorauszusetzen ist, daß das Da- 
tenfeld jetzt mit dem explizit definierten TypNamenString 
statt wie oben mit STRING [60] beschrieben wird. Die 
alphabetische Reihenfolge kann wie die Ordnung bei 
Zahlen abgefragt werden (allerdings nach der ASCII-Ta- 
belle, das heißt die deutschen Sonderzeichen kommen an 
der falschen Stelle und in falscher Anordnung): 


PROCEDURE Sortieren (VAR Bibliothek : TypBibliothek); 
VAR 


AnfangsnummerRestreihe, 
GefundeneNummer : Integer; 


PROCEDURE SucheNachVorneGehoerendesktlement 


{VAR GesuchteNummer : Integer; 
AnfangsnummerRestreihe : Integer); 


VAR 


i, Nummer : Integer; 

Vorschlag : TypNamenString; 
{vorschlag für nach vorne 
gehörendes Datenelement.)} 


BEGIN . 


Vorschlag BuecherRegal [AnfangsnummerRestreihe]. Autorin 
Nummer AnfangenummerRestreihe; 
FOR i:= AnfangsnummerRestreihe + 1 TO Belegungszahl DO 


{Wenn AutorIn des i-ten Buchs vor dem alten Vorschlag 
im Alphabet steht, so merke i auf Nummer und halte‘ 
AutorIn als neuen Vorschlag fest.} 3 


IF BuecherRegal [i].AutorIn < Vorschlag 


THEN 
BEGIN 
Nummer se.)5 
Vorschlag := BuecherRegai [i).AutorIn; 
END; 
{Die Nummer, die schließlich stehen geblieben ist, 
bezeichnet das Buch, das alphabetisch nach vorne 
gehört.} 
GesuchteNummer := Nummer; 


END (* von SucheNachVorneGehoerendesElement *); 


PROCEDURE Platztausch (VAR Elementi, Element2 :TypBuch); 
VAR ‘ 
Element : TypBuch; 


BEGIN 
Element := Element2; {Merke Element2 auf Element} 
Element2 := Elementl; {Überschreibe Element2 mit Elementl} 
Elementi := Element; {Setze Element, also das alte Element2, 


auf Elementi} 
END (* von Platztausch *); 


BEGIN 
WITH Bibliothek DO 
FOR AnfangsnummerRestreihe := 1 TO Belegungszahl - 1 DO 


BEGIN 
SucheNachVorneGehoerendesElement 
(GefundeneNummer, AnfangsnummerRestreihe); 
IF GefundeneNummer <> AnfangsnummerRestreihe 
THEN 
{Das alphabetisch zuvorderst gehörende Buch tauscht 
seinen Platz mit dem in der Restreihe bislang vorne 
stehenden.} 
Platztausch 
(BuecherRegal [AnfangsnummerRestreihe], 
BuecherRegal [NummerDesAlphabetischVorrangigen]); 
END; 
END (* von Sortieren *); 


Um eine Datei neu zu ordnen, können Sie übrigens 
auch auf das Betriebssystem zurückgreifen. In MS-DOS 
gibt es zum Beispiel den Befehl SORT zur alphabetischen ° 
Sortierung 

Komplexe Objekte finden sich in fast jedem Zusam- 
menhang, auch in relativ kleinen und überschaubaren 
Programmen. Zu dem Thema nun noch einige Beispiele. 
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ARRAY mit 
negativen Zahlen 


Weitere Beispiele 


Wie erwähnt, kann als Indextyp, mit dem ein ARRAY nu- 
meriert wird, jeder Aufzählungstyp beziehungsweise ein 
Teilbereich Verwendung finden. 

Etwa beim Beispiel der Kurve: Möchten Sie Daten vor 
dem Stichtag zusätzlich erfassen, können Sie auch ein- 
fach ein ARRAY bilden, dessen Index in den negativen 
Zahilen anfängt. Eine mögliche Datenstruktur wäre dann: 


365; {Tage} 


ARRAY [-30. .MaximaleZeitspanne] OF Real; 


nteger; 


Kursreihe :. TypKursreihe; 


im Index 
CONST 
MaximaleZeitspanne = 
TYPE 
TypKursreihe = 
TypKurve u 
RECORD 
Zeitspanne : I 
END; 
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Abbildung 14-9: Kurve vor O beginnend 


Anstelle von -30 kann natürlich auch eine Konstante, 
etwa Vorlaufspanne, definiert oder gleich ein Typname für 
den gewünschten Bereich gebildet werden: 


Da —— Te — on Eh aan an an a u 7 Ten - —. 
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| Weitere Beispiele 


CONST 
MaximaleZeitspanne = 365; (Tage) 
Vorlaufspanne = -30; (Tage) 
TYPE 
TypZeitachse = Vorlaufspanne .. MaximaleZeitspanne; 
TypKursreihe = ARRAY [TypZeitachse] OF Real; 
Le. 0} 
Manchmal ist es äußerst praktisch, daß ein ARRAY Andere 
nicht nur mit ganzen Zahlen, sondern auch mit anderen Aufzählungstypen 


Aufzählungstypen indiziert werden kann (etwa beim 
Apfelzucht-Beispiel). Wenn für die Apfelsorten ein Ver- 
zeichnis mit Informationen über die einzelnen Apfelsor- 
ten geführt werden soll, so bietet sich die Strukturierung 
durch ARRAY [TypApfelsorte] OF als optimal an: 


als Indices 


TYPE 
TypApfelsorte = (Jonathan, Klarapfel, Boskop, CoxOrange, 
SommerCox, GoldenDelicious, GrannySmith, 
Ontario, Renette); 
TypVerwendung = (Tafel, Kochen, Backen, Most); 
TypMonatsSet = SET OF i..12; | 
TypSortenInformation = i 
RECORD 
Reifezeit : , TypMonatsSet; 
Geschmack : STRING [30]; 
Aussehen : STRING [40]; 
Verwendung : TypVerwendung; 
Name : STRING [50]; 
Herkunft : STRING (50]; 
END; 
TypVerzeichnis = ARRAY [Typäpfelsorte] OF 
TypSortenInformation; 
VAR 
Verzeichnis : PypVerzeichnis; 


Das letzte Beispiel zeigt eine typische Anwendung ei- 
ner Schachtelung von ARRAYS. Jede Fläche, die in Zeilen 
und Spalten gegliedert ist, läßt sich als Doppel-ARRAY 
auffassen. Das heißt, sie wird behandelt als eine Reihe 
von Zeilen, die jeweils Spaltenelemiente darstellen, oder 
auch umgek£hrt. Ein solches Doppel-ARRAY heißt auch 
Matrix. 
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Programmieren eines Font-Editors 


Alle handelsüblichen Matrixdrucker bieten die Möglich- 
keit, Zeichensätze zu generieren oder die Form nicht be- 
nötigter Zeichen umzuprogrammieren. Wenn der Druk- 
ker das Zeichen Q, ASCIH 234, empfängt, könnte er zum 
Beispiel ein kleines Telefonsymbol zu Papier bringen. Die 
neue Form des Zeichens muß allerdings punktweise in 
der Feinheit, die den Nadeln des Druckkopfs entspricht, 
definiert werden. Details hierzu sind im Handbuch des 
Druckers nachzulesen. | 

Die punktweise Beschreibung und Veränderung eines 
Zeichens soll ein Programm erleichtern, mit dem Zeichen 
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Abbildung 14-10: Symbol Telefon 
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des Druckzeichensatzes (des Fonts) in Blockgrafik am 
Bildschirm ediert werden können. Aus der dabei gewon- 
nenen Beschreibung lassen sich nach der Methode, die in 
Ihrem Druckerhandbuch für Ihr Gerät angegeben ist, re- 
lativ einfach die Steuercodes.erzeugen, die das neue Zei- 
chen für den Drucker gültig machen. 

Ähnlich können Sie sich ein Logo, Ihr individuelles 
grafisches Symbol, definieren (sozusagen ein Stempel in 
verfeinerter Ausführung und mit weit höherer Auflö- 
sung, als es beim allerersten Programm der Fall war). 

Als hauptsächliche Datenstruktur wird ein Doppel- 
ARRAY, die Druckmatrix, benötigt. Dieses hält fest, wel- 
che Punkte (Druckernadeln) gesetzt und welche nicht ge- 
setzt sind. Wenn nachher der Steuercode für den Drucker 
ermittelt wird, müssen lediglich die Komponenten der 
Druckmatrix (vom TypDruckspalte) mit einer bestimmten 
Formel ausgewertet werden. Ein Problem ist die halb- 
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Abbildung 14-11: Logo 





wegs korrekte Darstellung des momentanen Inhalts der 
Druckmatrix auf dem (nicht-grafischen) Bildschirm. Die 
normalen Zeichen des Bildschirms eignen sich dazu nur 
schlecht, weil sie die Abbildung extrem vertikal verzerren 
würden. Sie können sich aber beim PC-Zeichensatz mit 
den Zeichen ’® (ASCII 219), 'w’ (ASCI 220) und ae (AS- 
CI 223) behelfen. Der Trick besteht darin, jeweils zwei 
Druckmatrix-Punkte in einem Bildmatrix-Element, also 
einem Bildschirmzeichen, zu vereinen. FF muß stehen, 
wenn die beiden Druck-Punkte gesetzt sind, 'g, wenn 
nur der untere Punkt, wi falls nur der obere Punkt ver- 
wendet werden soll. Als grundlegende Datenstruktur 
können Sie das auf der folgenden Seite beginnende Bei- 
spiel verwenden. 
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Abbildung 14-12: Ein „A” 


RECORD, ARRAY und FILE | 


CONST 


Horizontalaufloesung 
Vertikalaufloesung 
MaxBildbreite 
MaxBilähoehe 
{Praktische Bezeichnung 
PunktGesetzt 
NichtGesetzt 
MenueAnfangszeile 
MenueAnfangsspalte 
BildAnfangszeile 
BildAnfangsspalte 
TYPE 
TypPunktgesetzt 
TypDruckspalte 


TypDruckmatrix 


TypBildzeile 
TypBildmatrix 
VAR 
Druckmatrix 
Bildmatrix 


Druzeile, Druspalte 
Bilzeile, Bilspalte 


N 


{Konstanten für die ARRAY-Grenzen, 
hier für 24-Nadeldrucker gewählt. } 

37; {Anzahl Spalten} 

24; (Anzahl von Punkten je Spalte} 

40; {max. Anzahl Bildschirmspalten} 

= 20; {maximale Zahl Bildschirmzeilen} 

en} 

= true; 

= false; 

= 2; 

= 1; 

= 5; 

= 20; 


n 


x 


= Boolean; 

= ARRAY. [1..Vertikalaufloesung] OF 
TypPunktgesetzt;. 

= ARRAY. [1. ‚Horizontalaufloesung) OF 
TypDruckspalte; 

= ARRAY [1..MaxBildbreite] OF Char; 

= ARRAY {1..MaxBildhoehe] OF TypBildzeile; 


: TypDruckmatrix; 
: TypBildmatrix; ’ 
{Die aktuellen Positionen in der 
Druck- beziehungsweise der Bildmatrix} 
: Integer; 
: Integer; 


Das weitere sei nun Ihnen überlassen. 


Aufgaben 


1. Skizzieren Sie Syntaxdiagramme der RECORD-, der 
ARRAY- und der FILE-Deklaration. 

2. Die Weinkellerei Zucker & Schwefel will ihre wö- 
chentliche Umsatzstatistik von der EDV aufbereiten las- 
sen. Nach jeder Woche soll’ein Bericht‘ der folgenden 
Form gedruckt werden (s. 5. 263, Abb. 14-13): 

Stellen Sie eine Datenstruktur auf, die derartige Daten 
aufnehmen kann (wobei die Umsätze keine Zu speichern- 
de Größe sind). Schreiben Sie ein Programm, mit’dem.die 
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Sorte Bezeichnung Anzahl Preis Umsatz 


1 Riesling 15 3.90 Ele 
2 Müller-Ihurgau 10 4.50 Euer 


„vv vv» vo © 


Abbildung 18-13: Wochenbericht der Weinkellerei Zucker & Schwefel 


Daten und Rechenergebnisse aufgenommen und ausge- 
geben werden können. 

3. Ein ARRAY [’a‘..’z’] OF Integer besteht aus so vielen 
Integer-Objekten, wie es Buchstaben im Alphabet gibt, 
und ergibt die ideale Datenstruktur für ein Programm, 
das die Häufigkeit der verschiedenen Buchstaben des 
Alphabets in einem Text zählt. Schreiben Sie ein solches 
Programm. Gehen Sie von Texten ohne deutsche Sonder- 
zeichen aus. Versuchen Ste später, das Programm so ab- 
zuändern, daß auch diese berücksichtigt werden. 

4. Das Schachbrett ist wirklich ein zweidimensionales 
ARRAY. Eine Datenstruktur, mit der sich Stellungen des 
Spiels abbilden lassen, wird beschrieben durch: 


TYPE 
TypFigur = 
(wBauerl, WBauer2, WBauer3, WBauerä4, 
wBauer5, WBauer6, WBauer7, WBauerß, 
WTurmi, WTurm2, WRoessell, WRoessel2, 
WLaeuferl, WLaeufer2, WDame, WKoenig, 
SBauerl, SBauer2, SBauer3, SBauerd, 
SBauer5, SBauer6, SBauer?7, SBauerß, 
STurml, STurm2, SRoessell, SRoessel2, 
SLaeuferl, SLaeufer2, SDame, SKoenig, 
Leer); 
TypSchachbrett : ARRAY [’a’..’h’] ÖF ARRAY{’1’..'8'] OF TypFigur; 
VAR 
Schachbrett : TypSchachbrett; 


Zum Beispiel steht auf dem Feld b7 die Figur: 
Schachbrett [’b’) [7) 


Erweitern Sie diese Datenstruktur so, daß Spielfolgen 
(oder ganze Partien) dargestellt werden können. Definie- 


RECORD, ARRAY und FILE | 


ren Sie eine Prozedur Zug, mit der ein Spielzug protokol- 
liert werden kann. 

7. Wie könnte eine Datenstruktur aussehen, mit der 
sich die Spielstellung von Mensch-Ärgere-Dich-nicht 
oder Malefiz beschreiben ließe? Eine etwas vereinfachte 
Form der Spiele läßt sich mit gar nicht so großem Auf- 
wand als Computerspiel programmieren. 

8. Wenn Sie Interesse an Statistik haben, können Sie 
dank der ARRAYSs jetzt deren Methoden einsetzen. Ein 


ARRAY [1..N] of Real mit einer Konstante N, etwa N = 30, 





Figuren im "Häuschen": 





Herz : v1 2 
Karo : #1 »2 +4 
Kreuz: 21 22 

i 93 





Abbildung 14-14: „Mensch-Ärgere-Dich-Nicht” 
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speichert eine Zahlenreihe in der Form, wie sie für die sta- 
tistische Auswertung nach den üblichen Formeln benö- 
tigt wird. | 

9. Programmieren Sie einen Auskunftsautomaten für 
den Geldtausch vor dem Urlaub. 
O Für die wichtigsten Urlaubsländer werden die Wechsel- 

_ kursefrfaßt 

OD und als Kurstafel in einer Übersicht angezeigt. 









Figuren an Ziel: Am Zug: 9 | 
Würfel: 6 | 

Herz : Welche Figur zieht? 

Karo : 

Kreuz: 23 





pik : 1 4 





DO Auf Anforderung wird berechnet, welcher Betrag einer 


ausgesuchten ausländischen Währung einem bestimm- 
ten DM-Betrag entspricht. 


Legen Sie dabei die folgende oder eine ähnliche Daten- 
struktur zugrunde: 


TYPE 
TypWaehrungen = 


1 


(Dollar, Franc, Pfund, Lira, Franken, Schilling, 


Peseten, 
Dinar, Forint, Rubel); 
TypKurstafei = Array [Typwaehrungen] of Real; 
VAR 
Kurstafel : 


: TypKurstafel; 


Anhang | 


Anhang: 
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00000000 
00000001 
00000010 
00000011 
00000100 
00000101 
00000110 
00000111 
00001000 
00001001 
00001010 
00001011 
00001100 
00001101 
00001110 
00001111 
00010000 
00010001 
00010010 
00010011 
00010100 
00010101 
00010110 
00010111 
00011000 
00011001 
00011010 
00011011 


00011100 


00011101 
00011110 
00011111 
00100000 
00100001 
00100010 
00100011 
00100100 
00100101 
00100110 
00100111 


ee ET ro 4er 1 HI: AT FI MM OSBIOEN -: > oe 4 OO 


EN 


28 
29 
2A 
2B 
2C 
2D 
2E 
2F 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
3A 
3B 
3C 
3D 


3E 


3F 


“0 


41 
42 
43 
44 


. 45 


46 
47 
48 
49 
4A 
4B 
ac 
4D 
4E 
4E 


00101000 
00101001 
00101010 
00101011 
00101100 
00101101 
00101110 
00101111 
00110000 
00110001 
00110010 
00110011 


00110100 - 


V00110101 
00110110 
00110111 
00111000 
00111001 
00111010 
00111011 
00111100 
00111101 
00111110 
00111111 
01000000 
01000001 
01000010 
01000011 
01000100 
01000101 
01000110 
01000111 
01001000 
01001001 
01001010 
01001011 
01001100 
01001101 
01001110 
01001111 


+2uon 


van na Dumm \ 
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1. Spalte: Dezimal; 2. Spalte: Hexadezimal; 3. Spalte: Binär; 4. Spalte: Zeichen 


en, 


01010000 
01010001 
01010010 
01010011 
01010100 
01010101 
01010110 
01010111 
01011000 
01011001 
01011010 
01011011 
01011100 
01011101 
01011110 
01011111 
01100000 
01100001 
01100010 
01100011 
01100100 
01100101 
01100110 
01100111 
01101000 
01101001 
01101010 
01101011 
01101100 
01101101 
01101110 
01101111 
01110000 
01110001 
01110010 
01110011 
01110100 
01110101 
01110110 
01110111 
01111000 
01111001 
01111010 
01111011 
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124 
125 
126 
127 
128 
129 
130 
131 
132 
133 
134 
135 
136 
137 
138 
139 
140 
141 
142 
143 
144 
145 
146 
147 
148 
149 
150 
151 
152 
153 
154 
155 


156: 


157 
158 
159 
160 
161 
162 
163 
164 
165 
166 
167 


01111100 
01111101 
01111110 
o111ı111 
10000000 
10000001 
10000010 
10000011 
10000100 
10000101 
10000110 
10000111 
10001000 
10001001 
10001010 
10001011 
10001100 
10001101 
10001110 
10001111 
10010000 
30010001 
10010010 
10010011 
10010100 
10010101 
10010110 
10010111 
10011000 
10011001 
10011010 
10011011 
10011100 
10011101 
10011110 
10011111 
10100000 
10100001 
10100010 
10100011 
10100100 
10100101 
10100110 
10100111 
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168 
169 
170 
171 
172 
173 
174 
175 
176 
177 
178 
179 
180 
181 
182 
183 
184 
185 
186 
187 
188 
189 
190 
191 
192 
193 
194 
195 
196 
197 
198 
199 
200 
201 
202 
203 


.204 


205 
206 
207 
208 
209 
210 
211 
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10101000 
10101001 
10101010 
11101011 
10101100 
10101101 
10101110 
10101111 
10110000 
10110001 
10110010 
10110011 
10110100 
10110101 
10110110 
410110111 
10111000 
10111001 
10111010 
10111011 
10111100 
10111101 
10111110 
10111111 
11000000 
11000001 
11000010 
11000011 
11000100 
11000101 
11000110 
11000111 
11001000 
11001001 
11001010 
11001031 
11001100 
11001101 
11001110 
11001111 
11010000 
11010001 
1010010 
11010011 
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v 


212 
213 


214 


215 
216 
217 
218 
219 
220 
221 
222 
223 
224 
225 
226 
227 
228 
229 
230 
231 
232 
233 
234 
235 
236 
237 
238 
239 
240 
241 
242 
243 
244 
245 
246 
247 
248 
249 
250 
251 
252 
253 

254 

255 


D4 
D5 
D6 
D7 
D8 
D9 
DA 
DB 


DD 
DE 
DE 
EO 
El 
E2 
E3 
E4 
E5 
E6 
E7 
EB 
E9 


EC 
ED 


FO 


Fl 
F2 
F3 
E&4 
ES 
F6 
F7 
F8 
F9 
FA 


FC 


Ho 


1. Spalte: Dezimal; 2. Spalte: Hexadezimal; 3. Spalte: Binär; 4. Spalte: Zeichen 


11010100 
11010101 
11010110 
411010111 
11011000 
11011001 
11011010 
11011011 
11011100 
11011101 
11011110 
11011111 
11100000 
11100001 
11100010 
11100011 
11100100 
11100101 
11100110 
11100111 
11101000 
11101001 
11101010 
11101011 
11101100 
11101101 
11101110 
21101111 
11110000 
11110001 
11110010 
11110011 
11110100 
11110101 
11110110 
11110111 

11111000 

11111001 

11111010 
11111011 

11111100 

11111101 

11111110 

11111111 
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m N Sc, : 


Register | 


Register 


16-Bit-Code 21 
24-Nadeldrucker 262 
3-Bit-Code 12 
8-Bit-Code 12 


Abbruchbedingungen 126 
abs 225 
Absatz 149, 152 
Absolutbetrag 225 
ABSOLUTE 27 
Abstraktion 26 
Absturz 194 
Addition 83, 192 
Aktualparameter 212, 218 
Alphabet 28, 67 
Alt-Taste 31 
AND 27, 104 
Anfangsspalte 42, 45 
Anfangswert 59, 62, 137 
Anfangszeile 42, 45 
Anweisungen 28 
Folge 45 
Handlungs- 25 
Anweisungsteil 29, 34, 49 
Apostroph 43, 55 
Arbeitsdatei 18 
Arbeitslaufwerk 18 
ARRAY 27, 233, 242, 245-247, 
252, 259° 
ARRAY OF 
Real 247 
ARRAY-Grenzen 247 
ARRAY-Komponente 243 
ARRAYs 242, 244 
Schachtelung 259 
ASCH 12, 31, 92-94, 161, 180, 
200 
Codenummer 144 
Datei 14 
ASCI-Tabelle 43, 256 
ASM 27 . 
ASSEMBLER 27 
Assign 142-144, 147-148, 160, 
239, 245,254 
Attribute 235 
Aufzählungstyp 172, 184 
Aufzählungstypen 259 
selbstdefinierte 189-190, 
192 
Ausgabe 190 
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Ausgabeformat 52 
Ausgabegrößen 88 
ausgelagert 

in Dateien 253 
Ausschnittstypen 184, 192 
Auswahlstruktur 99 
AUX 148 


Balkendiagramm 98 
Baustein 32, 217, 219 
Bausteine 39, 214, 218-219, 
221 
Bedingungen 100, 106 
Entscheidungs- 113 
geschachtelte 111 
Wiederholungs- 113 
Bedingungsausdruck 125 
Bedingungsausdrücke 103 
Befehlssatz 11 
BEGIN 27-28, 34, 102 
BEGIN-END 62, 173 
BEGIN-END-Rahmen 65, 
105, 120, 238 
beschrieben 
explizit 237 
parametrisch 237 
Betriebssystem 141, 257 
Bildmatrix 262 
Bildschirm 140 
ausgeben auf 43 
Bildschirmausgabe 35, 51 
Bildschirmmaske 16, 73 
Bildzeile 262 
Bit 11,50, 52 
Bitmuster 11 
Blaise Pascal 14 
Boolean 52, 62, 104, 125, 159, 
183 
boolesche Schleifenkontroll- 
größe 128 
boolescher Wert 143 
Bottom-up 39, 215 
Bottom-up-Verfahren 40 
Buchstaben 28 
Byte 50, 193 
Bytes 11,53 


C(ompile) 26 
Cardinal 193, 200, 202, 212 
CASE 27, 252 


CASE-Anweisung 170, 
172-173, 179-180, 191 

Change Direktory 18 

Char 52, 62, 92, 105, 153, 172, 
183, 244 

Char-Komponenten 248 

Char-Werte 93, 168, 225 

Chars 153 

Chr 225 

chr-Funktion 92 

Close 143-144, 160, 239, 245, 
254 

ClrScr 35-36 


- Code ll 


COM 148 

Compiler 14, 33, 35 
Compilieren 33 
Computerwörter 11 

CON 148 

Concat 153 

CONST 27, 37, 42, 48, 244 
CONSTRUCTOR 27 
Copy 154, 158, 220 
Cursor 78, 178, 219 


Datei 17, 144 

Öffnen 142 

ordnen 257 
Datei mit Zeilenstruktur 150 
Dateien 139-141 

Öffnen 239, 240 

Schließen 143, 239 

strukturierte 254 
Dateiname 17 
Dateivariable 140-141 
Dateizeiger 255 
Daten 22 

Interpretation 23 
Datenanpassungen 148 
Datenelemente 235 
Datenerfassung 75 
Datenexport 211 
Datenfeld 235, 256 
Datenfeldnamen 235 
Datenimport 211 - 
Datensatz 234-235 
Datensatz-Typ 233 
Datenstrukturierung 250 
Datentyp 54 

komplex 184 


strukturiert 184 

zusammengesetzt 184 
Datentypen 50, 57 

Kreation 183 
Datenverbund 233 
Debugger 15 
Deklaration 228, 234 

explizite 243 
Deklarationsteil 29, 32, 34, 

37,41, 48, 53, 161 
Delay 60, 179, 203 
Delay-Anweisung 69 
Delete 154 
DESTRUCTOR 27 
Dezimalsystem 12 
Dezimalzahl 50, 89, 155, 225 
Dialogprogramm 80 
DIN-Diagramm 101 
DIN-Norm 22 

66001 107 
Directory 17-18 
Direktzugriff 253, 255 
Disketten 

Lesen 139 

Schreiben 139 
Diskettenlaufwerk 17 
DIV 27, 86-87, 91, 96 
Dividieren 84, 162 
Division 83, 85 

mit Rest 85 
DO 27, 61-62, 65, 120 
Doppel-ARRAY 259 
Doppelpunkt 48-49, 51, 173 
DOWNTO 27, 66 
Drucker 36, 56, 78-79, 260 
Druckeranpassung 179 
Druckmatrix 260, 262 
Druckspalte 262 
Dualsystem 12 
Dummy-Prozeduren 168, 199 
Durchschnittswert 146, 


E-V-A-Schema 76, 88 
Ebenen 18 
Edit 18 . 
Editor 18, 39, 144, 156 
Turbo 19 
Eingabe 72, 190 
dialog 72 
Eingabeanweisung 71, 237 
Eingabegrößen 88 
Eingabekontrolle 178, 229 
Eingabemaske 74 


Einruecken 79 
Einzelanweisungen 41 
Elementtyp 197 
ELSE 27, 101, 105-106, 
110-111 
END 27-28, 32, 34, 102, 172, 
234 
Endwert 59, 62, 137 
ENTER-Taste 59 
Entscheidungen 
einseitige 110 
Entscheidungsstruktur 99, 
108-109, 126, 251 
Entwicklungsumgebung 19 
integrierte 15-16 
EOF 143-144, 159-160, 177 
EoLn 152, 161, 225 
Escape-Taste 18 
explizite Typen 234 
EXTERNAL27 


Fallunterscheidung 
"flache 166 
falsch 104 
false 52, 104, 167 
FAR 27 
Farbbildschirmen 164 
Fehleingaben 167 
Korrektur 168 
Fehleranzeige 
akustische 175 
Fehlermeldungen 15, 72, 175, 
179 
Festplatte 15 
FILE 27, 233, 254 
FILE OF 253 
flache Wiederholungsstruk- 
tur 231 
Flag 125 
Fließtext 148-149, 156 
Font-Editor 260 
Fonts 260 
FOR 27, 60, 202, 243 
For-Anweisung 57-58, 60-66, 
68, 190-191 
FOR-Schleife 59, 243 
Formalparameter 212 
Formular 73 
FORWARD 27, 228 
FUNCTION 27, 226-227 
Funktion 227 
boolesche 227 


“ Funktionen 154, 192, 216, 


224,228 
selbstdefinierte 226 
Funktionsdeklaration 226 


Ganzzahlen 89 
Geräte 139 
Get-/Put- 

Operationen 254 
Gleichheitszeichen 49 
Gleitkommazahl 50 
Gleitpunktdarstellung 50 
Gleitpunktzahl 50 
Global 208-209 
globale Größen 208 
globale Variable 208, 211 
globale Variablen 208 
GOTO 27,117 
GoToXY 35-36, 39, 75, 78, 117 
Grobgliederung 29 
Großbuchstaben 171 
Großschreibung 28 
Grundtyp 197 


Hardcopy 78 

Hauptmenü 16, 17 
Hauptprogramm 48 
Helligkeiten 164 
Hexadezimalsystem 12 
Hilfsvariable 250 
Horizontalaufloesung 262 


IBM-Zeichensatz 43-44, 92, 
266 

IF 27,101 

IF-Anweisung 102, 105-106, 
110-111, 152 

IF-THEN-ELSE 102, 164, 174 

JF-THEN-ELSE-Anweisun- 
gen 101,113 
geschachtelt 166 

IF-THEN-ELSE-Schachte- 
lung 167 

IMPLEMENTATION 27 

Implementationen 50 
Pascal- 141 

implizite 234 

implizite Typvereinbarung 
234 

IN 27 

Include 216 

Index 243, 258 

Indexgrenze 244 

Information 22 


Register | 


INLINE 27 
Input 27 
Insert 155 


Integer 49-50, 88, 90, 92, 172, 


183 


Integer-Variable 155, 191, 193 


Integer-Wert 91, 153 
‘ INTERFACE 77 
INTERRUPT 27 


JA-Programmast 107 
JA-/NEIN-Teil 106 
JA-Zweig 101 
Jackson-Diagramme 250 


Kardinalzahlen 193 
kbd 135, 159, 170 
KeyPressed 225 
Klammerart 33 
Klammeraffe 28 - 
Klammern 33, 55, 83, 205 
Kleinbuchstaben 171, 196 
Kleinschreibung 28 
Kommentare 33, 34, 45 
komplexe Datenstrukturen 
233 
Komponente 235 
Komponentennamen 238 


Konstanten 31, 38-39, 42-43, 


46, 48-49, 103, 131 
-definition 42 
-deklaration 37 
Char- 52 
Integer- 51 
Textzeichen 57 
Zahlen- 82 
Kontrollväriable 61 
Koordinaten 35 ' 
Kopierfunktion 39 
Korrekturmöglichkeit 167 


LABEL 27 
LABEL-Deklarationen 187 
Laufschleife 59, 61 
Laufwerk 18 
Leerstrings 79 
Leerzeichen 61 
Leerzeilen 149 ’ 
Length 74, 77, 178, 220 
Length () 67 
Lesen 

zeichenweise 144 
Load 18 
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lock 143 

Logik 13,104, 111, 125 

Logo 261 

lokal 210 

lokale Größen 208 

lokale Variable 208, 211, 213 
Longint-Werte 89 

LPT 148 

LST 79, 140, 148 


Mantisse 50 
Maschinensprache 11-13 ' 
Masken 242 | 
-prozedur 75 
Matrix 259 
Maus 164 
Maximallängen 234 
Maxlnt 200 
Mehrfachauswahl 164 
Menü-Oberfläche 163 
Menüleiste 16, 170 
Menüpunkte 164 
Menüs 168, 242 
Mit 192 
Mittelwertsfunktion 227 
MOD 27, 86-87, 91, 96 
MOD-Operation 92 
Modul 214 
Modula2 214 
Modularisierung 213, 215 
Module 216 
Modulkonzept 214 
Multiplikation 83 
Multiplikationszeichen 85 


nach oben schieben 
Schirm 160 
Nachkommastellen 52 


Namen 28, 233 


Nassi-Shneiderman- 
Diagramme 109 

NEAR 27 

NEIN-Programmast 107 

NEIN-Zweig 101 

Niklaus Wirth 9, 14 

NIL 27 

NOT 27, 104, 125 

Null-Fehlersyndrom 177 

Nummernzeichen # 43 


Oberon 214 
OBJECT 27° 
Objekte 


komplexe 235, 257 
Objektstruktur 233 
OF 27, 259. 
Optionsaufrufen 169 
OR 27, 125 
ord 94, 192, 225 
ord-Funktion 93, 180 
Output 27 


PACKED27 
Palindrome 70 
PAP 107-108, 110, 115, 
118-119 
Parameter 205, 206-207, 212 
typgebunden 248 
parametrisieren 213 
parametrisierte Prozeduren 
216 
Pascal 
Standard 27 
Pascal-Compiler 9, 14 
Pascal-Dialekt 141 
Pascal-Dialekte 27, 143 
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Einführung in Pascal 


Die Programmiersprache Pascal hat BASIC von der Ver- 
breitung her überholt und ist zur wichtigsten Programmier- 
sprache geworden. Auch an Schulen und Hochschulen 
wird inzwischen hauptsächlich mit Pascal gearbeitet. 
Dieses FALKEN Buch vermittelt dem Leser alle wichtigen 
Strukturen und Befehle der Programmiersprache Pascal. 
Es konfrontiert ihn nicht mit isolierten, abstrakten Beispie- 
len, sondern erarbeitet mit ihm im Verlauf attraktiver Lektio- 
nen funktionsfähige Teilprogramme, die auch für das späte- 
re Erstellen eigener Programme nützlich sind. Obwohl das 
Buch die Prinzipien des Programmierens mit Pascal er- 
schließt und nicht auf bestimmte Pascal-Dialekte abhebt, 
wurden alle Beispielprogramme mit den neuesten Pascal- 
Versionen von Microsoft und Borland getestet. 

Das Buch kann bei richtiger Nutzung traditionelle Schulun- 
gen und Seminare ersetzen, aber auch als Begleitmaterial 
zu diesen dienen. 


Rupert Röder ist Diplom-Mathematiker und als Dozent für 
Informatik an einer privaten Computerschule tätig. Er leitet 
seit vielen Jahren Pascal-Kurse an der Volkshochschule in 
Mainz. 
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